General Disclaimer 


One or more of the Following Statements may affect this Document 


• This document has been reproduced from the best copy furnished by the 
organizational source. It is being released in the interest of making available as 
much information as possible. 


• This document may contain data, which exceeds the sheet parameters. It was 
furnished in this condition by the organizational source and is the best copy 
available. 


• This document may contain tone-on-tone or color graphs, charts and/or pictures, 
which have been reproduced in black and white. 


• This document is paginated as submitted by the original source. 


• Portions of this document are not fully legible due to the historical nature of some 
of the material. However, it is the best reproduction available from the original 
submission. 


Produced by the NASA Center for Aerospace Information (CASI) 



NASA TM X- 72758 


NASA TM X -72758 


NASA TECHNICAL 

MEMORANDUM 


APPROXIMATE METHOD FOR CALCULATING TRANSONIC 
FLOW ABOUT LIFTING WING-BODY CONFIGURATIONS: 

computer Program and user's manual 


Richard W. Barnwell and Ruby M. Davis 
August 1975 



This Informal documentation medium is used to provide accelerated or 
special release of technical information to selected users. The contents 
may not meet NASA formal editing and publication standards, may be re- 
vised, or may be Incorporated in another publication. 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
UNGUY MSEMCN tENTH,,HAWTON, VIRGINIA 23645 




2. Government Accawon No. 


4. Title and Subtitle 

Approximate Method for Calculating Transonic Flow About 
Wing-Body Configurations: Computer Program and User's 

Manual 


7. Author(s) 

Richard W. Barnwell and Ruby M. Davis 


B. Reforming Organization Mama and Addrees 

NASA-Langley Research Center 
Hampton, Virginia 23665 


12. Sponsoring Agancy Name and Addrata 

National Aeronautics and Space Administration 
Washington, D. C. 20546 


3. Recipients Catalog No. 


5. Report Data 


6. Performing Organization Coda 


8. Performing Organization Report No. 


10. Work Unit No. 
505-06-11-02 


11. Contract or Grant No. 


13. Type of Report and Period Covered 

NASA Technical Memorandum 


14. Sponsoring Agency Code 


15. Supplementary Notes 

Special technical information release, not planned for formal NASA publication. 

16. Abstract This paper is a user's manual for a computer program which calculates 

inviscid flow about lifting configurations in the free-stream Mach-number range 
from zero to low supersonic. Angles of attack of the order of the configuration 
thickness -length ratio and less can be calculated. An approximate formulation is. 
used which accounts for shock waves, leading-edge separation and wind-tunnel wall J 
effects. 5 


17. Key Words (Suggwted by Authorial) 

{STAR category underlined) 

Aerodynamics 

Shock Waves 

Transonic Flow 

Wind-Tunnel 

Wing-Body Configurations 
Leading-Edge Separation 

Walls 


Unclassified - unlimited 


21. No. of Pages 


^classified 



1 Unclassified ____!_ _ _ 


The National Technical Information Service, Springfield, Virginia 221S1 

■ 

STIF/NASA Scientific and Technical Information Facility, P.O. Bo* 33, College Park, MD 20746 


22. Price* 

$5.75 




TABLE OF CONTENTS 


SUMMARY 

INTRODUCTION 

SYMBOLS 

DESCRIPTION OF INPUT 

Computational Grid 

Outer Boundary Conditions 

Basic Parameters 

Body 

Wing 

Computational Parameters 
Plotting Parameter 
DESCRIPTION OF PRINTED OUTPUT 
Program Start 
Program Work 
Program Result 

DESCRIPTION OF PLOTTED OUTPUT 
ARRAY SIZE 

APPENDIX A - PROGRAM LISTING 
APPENDIX B - SAMPLE INPUT 
APPENDIX C - SAMPLE OUTPUT 
REFERENCES 


Page 

1 

1 

4 

5 
5 
8 
9 
9 

12 

16 

IT 

17 

17 

18 

19 

20 
22 
24 

101 

103 

133 



APPROXIMATE METHOD FOR CALCULATING 


TRANSONIC FLOW ABOUT LIFTING WING-BODY 
CONFIGURATIONS: COMPUTER PROGRAM AND 

USER'S MANUAL 

Richard W. Barnwell and Ruby M. Davis 
Langley Research Center 


SUMMARY 

This paper is a user's manual for a computer program which calculates 
inviscid flow about lifting configurations in the free-stream Mach number range 
from zero to low supersonic. Angles of attack of the order of the configuration 
thickness-length ratio and less can be treated. An approximate formulation is 
used which accounts for shock waves, leading edge separation and wind-tunnel 
wall effects. 


INTRODUCTION 

In this paper a listing, user's manual, and sample case for a computer 
program which calculates inviscid flow about lifting configurations traveling 
at any Mach number in the range from zero to low supersonic is presented. The 
angle-of-attack range extends to values of the order of the configuration thickness 
length ratio. The approximate method which is used is described in reference 1, 

A preliminary version of the method is described in reference 2. The theory of 
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references 3 and U is used to reduce the nonlinear three-dimensional problem 
of transonic flow about lifting configurations to two two-variable problems: 
a linear lift problem and a nonlinear coupled thickness-lift problem* 

The linear lift solution is determined first. For free-stream Mach 
numbers near one this solution is obtained from slender-wing theory. For 
subsonic and supersonic Mach numbers appreciably different from one the 
theory of Lawrence and Flax (ref. 5) and a modified version of the quasi- 
conical theory of Carofoli (ref. 6), respectively, are used. It should be 
noted that the lift solution varies consistently in the transonic range 
because the theory of Lawrence and Flax and quasiconical theory both reduce 
to slender wing theory as the free-stream Mach number approaches one. 

The nonlinear thickness-lift solution is determined numerically with a 
two-independent variable method of relaxation algorithm of the type intro- 
duced by Murman and Cole (ref. 7)* The present method is similar ( to that 
of Bailey (ref. 8) for axisymmetric flow except that the shock finite- 
difference operator of Murman (ref. 9) is employed. 

The two-variable formulation of the thickness-lift problem is similar 
to the axisymmetric formulation, in that the independent variables are the 
axial and radial coordinates x and r as shown in figure 1 . 



Figure 1.- Coordinate systems. 
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However, cross-flow effects are not set to zero as in axisymmetric flow but 
are evaluated with the theory of references 3 and It should be noted 
that this theory accounts for nonlinear as well as linear phenomena. So- 
lutions are determined in semiplanes of constant polar angle u) such as 
the one shown in figure 1. A separate solution must be obtained in each 
plane for which results are desired. Note that the angle w is zero in the 
wing plane and is positive above the wing. 

A discussion of the program input and output are given in this paper. 

In addition, a Fortran IV program listing is given in appendix A, and a sample 
input and output are given in appendices B and C, respectively. The minimum 
number of computer storage locations required to execute the program on the 
CDC 6600 computer is 77,000g. 
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SYMBOLS 

width and spacing of slots in slotted tunnel wall 
dipole strength for linear lift solution 
free-stream Mach number 
radial coordinate 
free stream velocity 

perturbation velocity components in axial and radial directions 
axial coordinate 

axial position of maximum body diameter 

V 

spanwise coordinate 
vertical coordinate 
angle of attack 

constant of proportionality for slotted-wall boundary condition 
free-stream denisty 
polar angle 



DESCRIPTION OF INPUT 

The program input consists of 17 fixed-point and 22 floating-point 
parameters which are input with a namelist statement. These parameters are 
organized into several groups according to their use. 

Computational Grid 

The first 10 parameters determine the grid, which is shown schematically 
in figure 2. The grid indices in the axial and radial directions are J and 
K, respectively; and the arrays for the axial and radial grid coordinates are 
XW(J) and RW(K). 

The grid in the axial direction is specified by the fixed-point parameters 
Jl, J2, J3, J 1 * and J5 and the floating-point parameter FAC. The grid is 
uniform between Jl and The body is located between J2 and J3, and the 
x grid is scaled such that 

XW(J2) * 0, 

XW(J3 ) = 1. 

There are expanded grids in the regions J*1 to J«J1 and J=JU to J=5 such 
that 

(XW(J) - XW(J-1))/(XW(J+1) - XW(J)) * FAC 
in the upstream nonuniform region and 

(XW(j) - XW(J-1))/(XW(J-1) -XWCJ-2)) = FAC 
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in the downstream nonuniform region. For supersonic free-stream Mach numbers 
it is recommended that the grid be uniform everywhere. This is accomplished 
by setting 

J1 * 1 
JU = J5 

The grid in the radial direction is specified by the fixed-point 
parameter KM and the floating-point parameters RC0M,A and B. The index 
of the outer boundary is KM. The radial grid distribution is given by the 
equation 

RW(K) - RC0M + ETA/(B - ETA*A) 
where 

ETA * K/KM 

The quantity RC0M is the radius at which the inner boundary condition is 
applied, and the parameters A and B determine that stretching in the 
radial direction. If A*B the radius of the outer boundary RW(KM) is 
infinite . 



Outer Boundary Condition 


The boundary condition at the outer wall is specified by the fixed- 
point parameter IWALL and the floating-point parameter P. The values 
for IWALL are 

0, free air 

IWALL = 1, porous wall 

2, slotted wall 

If IWALL=0 , the parameter P is not used by the program so any value may 
be input. For a porous wall (IWALL = l) P is the constant of proportionality 
in the porous-wall boundary condition 

v = -Pu 

where u and v are the perturbation velocity components in the axial and 
radial directions respectively. For a slotted wall (IWALL = 2) P is the 
constant of proportionality in the slotted wall boundary condition 

3v r>. 

It should be noted that P for slotted walls is the reciprocal of the 
parameter tc used in references 1 and 2. Baldwin, Turner and Knechtel 
(ref. 10) derive the approximate form 

K * " Hr (sin “a? > 

where b and a are the slot width and spacing. 
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Basic Parameters 


There are five basic floating-point parameters, 0MEGAD is the polar 
angle w shown in figure 1 which defines the plane in which the computation 
is made, and ALPHAD is the angle of attack. Both 0MEGAD and ALPHAD are 
in degrees. HSPAN is the nondimensional semispan of the wing. The Mach 
number and ratio of specific heats are specified by the parameters AMINF 
and GAMMA, respectively. 

Body 

The body shape is specified by two fixed-point parameters and four 
floating-point parameters. There are 5 body shapes which can be used. The 
choice of body shape is designated with the parameter IR as shown in 
figure 3. The maximum body radius is specified by the parameter RMAX. 

The parameters RC and RN are used only for the general pointed 
bodies. If IR is not 1 or 2 any value can be specified for these parameters. 
The general pointed-body shapes were developed by McDevitt and Taylor (ref. 11) 
If the point of maximum thickness is ahead of the mid-point the body radius 
R(j) is given by the FORTRAN IV equation 

R(J) * RC*RMAX Ml. - XW(J) - (l. - XW(J)) **RN) 

and if the point of maximum thickness is behind the midpoint the equation for 
the body radius is 

R(J ) * RC *RMAX «(XWlJ) - XW(J) **RN) 


9 
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Figure 3.- Body shapes. 
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Values for RC, RN and IR for several configurations are given in table I 
The values in this table were obtained from reference 11. Let the social 


Location of maximum 
radius, x 

IR 

RC 

RN 

• 3 

1 

1.71 

6.03 

.4 

1 

2.36 

3.39 

.5 

1 or 2 

4.00 

2.00 

.6 

2 

2.36 

3-39 

.7 

2 

1.71 

• 

6.03 


Table I. - Parameters for general pointed body. 
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The configurations which can he treated can have stings. The radius of 
the sting is specified by the parameter RS, and the axial location where the 
sting starts has the axial index JS. The sting extends to J$ . If there 
is to be no sting, let RS * 0, and JS * J3« 

The lengths of the ogive sections of the ogive-cylinder-ogive are each 
one quarter of the body length. 


Wing 

The wing shape, type of flow at the leading edge and algorithm for 
solving the linear-lift problem are specified with 6 fixed-point parameters 
and 1+ floating-point parameters. The identities of the parameters JW1, 

JW2, JW3 and JWD are indicated in figure 4 for wings with and without strakes. 




(a) Wing without strake 


(b) Wing with strake 


Figure 4.- Fixed-point wing parameters. 
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The leading and trailing edges of the wing are specified by the arrays 
Y2(J) and Yl(j), respectively. In this report the trailing edge is a 
straight line. It may be swept or unswept. An upswept trailing edge is 
specified by setting JW2 = JW3. Two types of leading-edge shape are consi- 
dered. Both types satisfy the condition that the tangent to the wing at the 
trai lin g edge is parallel to the free-stream direction so that the slender- 
wing solution satisfies the Kutta condition automatically. 

The first leading-edge shape, which is depicted in figure 5, is a 
portion of a hyperbola. The foci of the hyperbola lie on the line with the 


Y 



Figure 5.- First leading-edge shape. 


index J"W3. The wing shape is specified with the parameter IWING. The 
specification for the first leading-edge shape is IWING - 0. The only- 
floating-point parameter which must he specified for this leading-edge shape 
is DEL. This parameter and HSPAN are depicted in figure 5 . 

The second leading edge shape is depicted in figure 6 . This shape is 



Figure 6.- Second leading-edge shape. 

composed of two or three straight-line segments and one or two fillets. The 
specification for a wing Without a strake is IWING - 1 or IWING = -1. The 
parameter is positive if the linear lift solution is to he determined with 
slender wing theory and negative if quasi-conical theory or the theory of 
Lawrence and Flax is to he used. This wing is composed of two segments with 
the slopes B2 and 0 as indicated in figure 6 . The parameter DEL gives 



15 


the fractional difference in the local wingspan at the Junction point with 
and without the fillet. The equation for this fractional difference is 

DEL * (HSPAN - Y2 ) /HSPAN 

For a wing without a strake any values will suffice for the parameters 
B1 and DELI since they are not used. The specification for a wing with 
a strake is IWING = 2 or IVJING = -2. This wing is composed of 3 segments 
with the slopes Bl, B2 and 0 as shown in figure 6. The definition of the 
parameter DEL is the same as for a wing without a strake . The parameter 
DELI has a similar definition. Let the y coordinate of the intersection 
point of the first two segments (the segments with the slopes B1 and B2) 
he designated as YI. The equation for DELI is 

DELI * (Y2 - Yl)/YI 

There are three options as to how the flow at the leading edge of the 
wing behaves. These options are designated with the parameter IV0R. If the 
flow is attached the parameter has the value IV0R = 0, and if the flow is 
separated at the leading edge the parameter has the value IV0R * 1. If the 
wing has a strake, the flow can be separated at the leading edge of the 
strake and attached on the wing. For this type of flow the parameter has the 
value IV0R *2. 


Computational Parameters 


There are two fixed-point and three floating-point parameters which 
are used to control the computation. As discussed in references 1 and 2, 
different approximations are used at points inside the wingtip and "beyond the 
wingtip. In order to make the transition the cuter region is divided into 
a thin inner strip and a broad outer strip. There are some differences in 
the way the problem is formulated in the two strips of the outer region. 
However, the solution is virtually independent of the relative widths of the 
two strips. The width of the inner strip is specified by the parameter IDIR. 
This parameter generally has been given the value 4 by the authors. 

The convergence of the program is defined in terms of the maximum change 
in the velocity potential from one cycle to the next at all the grid points. 
The computation is terminated when the absolute value of the maximum change 
from one iteration cycle to the next at any grid location is less than the 
parameter EPSI. Also, the computation will be terminated if the number of 
iterations reaches IMAX. 

The method of successive line overrelaxation is used in this program. 

The relaxation factor which is used at points where the flow is subsonic is 
input with the parameter SUB. This factor can be no larger than 2. At points 
where the flow is supersonic the relaxation factor is 1 unless the flow at the 
point immediately upstream is subsonic. If this circumstance pertains, the 
relaxation factor should be less than one. The value for this factor is input 
with the parameter SUP. Typically, this factor is given a value slightly less 
than 1. 

l6 



Plotting Parameter 


The program output includes two or three figures. The first figure is a 
view of the configuration in the plane of constant u> (see figure l) and 
any shock waves or sonic lines which may be present. The second and third 
figures are plots of pressure distributions. The scale factor for plotting 
the first figure is input with the parameter SFACTOR . The number which is 
input is the number of unit lengths per inch which are to be used. 

DESCRIPTION OF PRINTED OUTPUT 

The computational program is divided into 3 main parts called Program 
Start, Program Work, and Program Result. All three parts have output. 

Program Start 

The function of Program Start is to establish the basic working 
constants and arrays used to make the numerical computation. All of these 
constants and arrays are printed at the end of Program Start. As mentioned 
previously , the axial and radial grid point locations are given by the arrays 
XW(j) and RW(K). The shape of the body and the leading and trailing edges 
of the wing are given by the arrays R(j), Y2(j) and Yl( j) , respectively, and 
the axial derivative of the cross-sectional area is given by the array 
SPRIME(j). The axial indices of the first columns of grid points downstream 
of the points where the wing leading and trailing edges emerge from the bor*y 
are designated as JW10 and JW20. In references 1 and 2, the dipole 

strength for the linear lift solution is designated by the function f(x). 

In the program the dipole strength and the axial derivative of the dipole 
strength are given by the arrays FUN3(j) and FUN2(j) respectively. 


17 


18 


The Brown and Michael model for leading-edge separation is used. This 
model represents the vortex system at the leading edge with a vortex core 
and vorticity feeding sheet. In this program the y and z locations of 
the vortex core are given by the arrays YV(JG) and ZV(JG) where the position 
index JG is related to the axial index J by the equation 

JG = J - JW10 +3 

The vortex-core strength and the axial derivative of the strength are designated 
as GAN and DGANDX, respectively. As noted in the previous section, the flow 
is separated along the entire length of the leading edge if the separation 
input parameter is IV0R - 1. If the separation input parameter has the value 
IV0R = 2 and the wing has a strake (IWING -2 or IWING = -2) the flow is 
separated at the leading edge only along the strake. Aft of the strake the 
vortex trails across the wing and the flow is attached at the leading edge 
of the wing. The last axial station at which the flow at the leading edge is 
separated is designated by the parameter JCHCK. 

Program Work 

After each iteration cycle is completed, the largest change in the velocity 
potential and the grid location where this change is located are printed. The 
axial and radial indices are designated as JMARK and KMARK, respectively, 
and the change in velocity potential is designated as DPHIMX . As mentioned 
previously separate computations are made at points above and beneath the wing 
if the computational plane is the horizontal plane (to = 0°) . If the position 
indices are negative the maximum change in velocity potential has occurred 
beneath the wing. 



Program Result 


The computed results are printed in this part of the program. First 
the shock wave and sonic line locations at each axial station in the region 
of uniform axial grid (J2 < J < J 3 ) are printed. Provision is made' for a 
total of as many as 6 shock waves and sonic lines at each axial station. 

The next quantities to be printed are the pressure coefficients at all 
the grid points in the region of uniform axial grid. These are printed in 
rows from K-l to K-KF where KF = KM if a wall is present and K2 = KM-1 
for free air. In general, the pressure coefficients are calculated with the 
approximate form of the linear lift potential used in Program Work. The 
pressure coefficient on both sides of the wing is printed if the flow is 
calculated on both sides of the wing. In addition, the pressure coefficients 

at points on the wing are calculated with a more accurate form of the linear 
lift potential. 

The computed values of the potential for the coupled thickness-lift 
problem are printed next. If the flow-beneath the wing is calculated, the, 
potential beneath the wing is printed. 

The distribution of the lift along the axis of the configuration is 
printed. In addition, vortex effects and thickness interaction effects are 
given. These quantities have been made nondimens ional with the product 
Poo u oo where and are the free-stream density and speed. The lift, 

moment, moment arm about the nose and the lift and moment coefficients are 
also printed. 

The pressure coefficient distribution on the body surface is determined 
and printed. If the configuration is at zero angle of attack so that the flow 
iS axisymmetric 0Ii ly one distribution is given. If the configuration is at 
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angle of attack and the computational plane is the wing-plane (w * 0°) the 
distributions along the intersections of the body surface with the wing plane 
(oo = 0°) and the vertical plane (b) = +90°, -90°), are given. Two distributions 
are given along the intersection of the body surface and wing plane, one for 
the pressure coefficient above the wing and one for the coefficient beneath the 
wing. The distributions which are obtained for the intersection of the body 
surface and vertical plane from the horizontal -plane calculation are simply 

surmised from the horizontal -plane results with the aid of slender-body and 

\ 

slender -wing theory. If the computational plane is the vertical plane (to = 90° 
or to = -90° ) , only the distribution of the pressure coefficient along the 
intersection of the body surface and the computational plane is printed. When 
leading-edge vortices and st rake-generated vortices are included, the pressure 
distributions both with and without vortex effects are printed. It should be 
noted that the body-surface pressure coefficients for lifting configurations 
are complete only if the computational plane is the horizontal plane (to = 0°) 
or the vertical plane (to — 90° or to = -90° } . Lift effects are npt included 
for other values of to. 

A number called DRAG is calculated and printed. This number is determined 
by integrating the surface pressure distribution. The accuracy of the present 
program is not good enough for this procedure to yield a meaningful value 
for the drag. It is not unusual for the sign of the number to be negative, 

DESCRIPTION OF PLOTTED OUTPUT 

The output includes either 2 or 3 plots, the first of which shows a 
view of the configuration and the shock-wave and sonic-line structure in the 
computational plane , and the second and third of which depict axial pressure- 
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coefficient distributions. If the configuration is at zero angle of attack 
only one distribution, the body-surface distribution is plotted. Four 
distributions are given on two plots if the configuration is lifting and the 
computational plane is the wing plane (u> = 0°). These distributions are for 
the pressure coefficient along the intersection of the body surface and the 
wing plane above and beneath the wing and along the intersection of the body 
surface and the vertical plane (u) = -90°). If the configuration is lifting 
and the computational plane is the vertical plane (a) - 90° or 03 = 90°) the 
distribution along the intersection of body surface and the side of the 
vertical plane which is being computed is given. 



ARRAY SIZE 


There are eight C0MM0N statements. The first of these is for scalar 
quantities derived in the program and the last is for the input parameters. 
These second and third C0MM0N statements are for one-dimensional arrays in 
the axial direction and are dimensioned 120 in the listing given in 
appendix A. The fourth statement is for one-dimensional arrays in the radial 
direction which are dimensioned 100 in appendix A. If the grid size in 
the axial or radial direction is to exceed 120 or 100, respectively, the 
dimension of the corresponding arrays must be changed. The fifth and 
sixth statements are for the one-dimensional arrays in the radial and axial 
directions respectively, which are used to make computations under the 
wing of lifting configurations. These arrays are used only if the angle of 
attack is not zero and the computational plane is the wing plane (oj = 0°). 

The dimension of the axial arrays must be at least as large as the number 
JW3-JW10 + 4 where JW3 and JW10 are the axial indices for the rear-most tip 
of the wing and the grid point either at or Just downstream of the point Where 
the leading edge of the wing intersects the body surface, respectively. It 
should be noted that JW3 is an input parameter, and JW10 is determined by the 
program. The dimension of the radial arrays must be at least as large as the 
index of the smallest value of the array RW(K) which is larger than the input 
parameter HSPAN. The dimensions of these radial and axial arrays in the 
listing in appendix A are 25 and 50 respectively. The two-dimensional arrays 
PHI ( J ,K ) and PHIU(JG,K) for the general velocity potential and the velocity 
potential under the wing, respectively, are dimensioned in the seventh C0MM0N 
block. In the listing given in appendix A the axial and radial dimensions are 
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109 and 50, respectively, for the former array and 50 and 25 , respectively, 
for the latter array. The seventh C0MM0N , statement also contains the array 
for the coefficients used in the series solution for the linear lift obtained 
with Lawrence-Flax theory. 



APPENDIX A 


PROGRAM LISTING 


The computational program is listed in this appendix. It is written 
in the Fortran IV computer language and contains two primary overlays. 

The numerical computation and the printing is done in the first primary 
overlay, which contains three secondary overlays. The figures are plotted 
in the second primary overlay. 
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OVERLAY (DICK, 0,0) 

PROGRAM EXEC ( INPUT=20 1 , OUTPUT *T APE5- INPUT ,TAP£7, TAP El I 


A 0 
A 10 
A 20 
A 21 

******** 4 ^************ ******* ****** 4 ^* ***************************************** 

23 

******************************************************************************* 

A 25 

TRANSONIC FLOW ABOUT LIFTING WING-BODY COMBINATIONS A 30 

' A 40 

A3 746— 4 A 50 

A 60 
A 70 

VAR IAN PLDT CONTROL CARD SHOULD BE A 80 

PLOT. VARIANT FS H=12. , FSV=i 1 . I A 90 

A 100 

COMMON /CALLP/ NRE AD, NCASES A 110 

COMMON /NMLIST/ J1,J2,J3,J4, J5,FAC,KM, RCOM, A,B , I WALL,P , OMEGA D»ALPH A 120 
1 AD, HS PAN, AMINF, GAMMA, IR, RC ,RMAX,RN, JS,RS , JWl , JW2, JW3, JWD, I WtNG,Bl, A 130 
2B2, DELI, DEL, IVOR, IOIR, EPSI , SUB, SUP, IMAX.SFACTOR A 140 

NREAD=0 A 15C 

READ 30, NCASES, NPLOT A 160 

00 20 1*1, NCASES A 170 

CALL OVERLAY ( 4H01 CK, 1 ,0 ,6HRECALL ) A 180 

IF (NPLOT. EQ.l) CALL OVERLAY ( 4HDICK.2,0, 6HRECALLI A 190 

20 CONTINUE A 200 

STOP 0101 A 210 

C A 220 

30 FORMAT (1015) A 230 

END A 240- 


OVERLAY (DICK, 1,0) a 0 

PROGRAM ONE 0 9 10 

c a 20 

COMMON SIGMA, DELTA, I, BET AS Q, DXR, DXSQR.GAMP1 , GP1DXR, KMM l.KFMl t KF, OE B 30 
1LETA,PIR,C0N4,C0N5,H, JT, Jl , JF , DPHIMX.DX, JXN, SNO, CS20, SNALP , I J W» Jwl B 40 
Z 0, JW2 0, JWIX » JW3X, BET A, JW3ML, OLTPH, JCHCK , IW, JW10M2, JW3P 1, JW10MI,M, X B 50 
3 WM , XWMSQR , P I , AK 2 , AX2 , AKL , AX1 , AX10 , C NX , NAMXP 1 , A1 , A2 , ZMACH, JMCK B 60 

COMMON R1120) ,SPRIME< L20),FUN( 120) ,XW(120l,Ylf 120),Y2C120) ,FUNIC 12 B 70 
10), FUNGI 120) tIFONI 120) ,FUN2< 120) ,FUN3( 120) , FUN4 ( 1 20 ) , I GUNC120 ) ,CP( B 80 
2120), FONX( 120) , SL AS < 120, 6) ,CPG{ 120) ,KLOA( 120) ,KUPA( 120) ,FUN5< 120) , B 90 
3FUN6< 120) ,FUN7( 120) ,F0NY(120) ,CP1 ( 1 20) , CP2 ( 120) 8 100 

COMMON FUN8 ( 120) , FUN9( 120) ,FUN10( 120) ,FUN tl( 120) , Y2PRMU20.I ,FUN12( B 110 
1 120),FUNA( 120) ,FUN9< 120) B 120 

COMMON CON7I100), CONS (100) »C0N9( 100),CON10( 100 ) ,C0N11 ( 1001 , CONK 10 B 130 
10) , C0N2 ( 1 00 ) , COM3 ( 100) .OMEGA ( 100 ) , A BAR ( 100 ) , BBAR ( 100 ) ,CBAR ( 100) , DB B 140 
2AR ( 100) , PHIO( 100) ,RW( 100 ) ,RWR( 100) , AXOCR( 100) , ACHK(IOO) ,PHIOLO( 100 B 150 
3 I , BCHK( 100 ) B 160 

COMMON PH I U0( 25) ,OMEGAU(25), ACHKU (25), BBARU ( 25 ) , C B ARU (25), OB A RU (25 B 170 
l ),BCHKJ(25) ,PHI0U(25) B 180 

COMMON I F UM (50),VLAM(50),VTAU(50),VLAMP(50),VTAUP(50),YV(50),ZVI50 B 190 
l ) , FUN AO (50) » FUN BO I 50),UU00(50),UU90D(50) B 200 

COMMON PHH109, 50) ,PHIU(50,25),C0EF(21> B 210 

COMMON /NMLIST/ J 1 , J 2 , J 3 , J4, J5 ♦ FAC , KM, RC OM , A , B ,1 W ALL , P, CMEGAD , AL PH B 220 
l AD, HSPAN.AMINF, GAMMA, I R , RC , R M AX , RN , JS, RS , JW 1 , JW2 , JW3, J RD, I Wl NG , B l, B 230 
2 B2, DELI, DEL , IVOR, IDIR.EPSi , SUB, SUP, IMAX.SFACTOR B 240 

DIMENSION I DAT E ( 2 ) B 250 

C B 260 

NAMELIST /NAME/ J 1 , J2, J3 , J4, J5, F AC , KM, RCOM , A , B , I WALL ,P ,CMEGAO , ALPH B 2 70 
1 AD.HSPAN, AM INF, GAMMA, I R , RC ,R M AX , RN, JS,RS,JW1, JW2 ,JW3,JW0,(MING,B1, 8 2 80 
2B2, DELI, DEL, IVOR, lOIR.EPSI, SUB, SUP, IMAX.SFACTOR B 290 

c B 300 

CALL OAYT IM ( IDATE) B 310 

PRINT 30, IDATE B 320 

PRINT 20 B 330 

PRI NT 30, I DATE B 340 

PRINT 10 B 350 

READ (5, NAME) B 360 

REWIND 1 B 370 

PRINT NAME H 380 

PRINT 20 B 390 

CALL OVERLAY (4HDICK, 1, 1, 6HR ECALL ) B 400 

PRINT 20 b 410 



CALL OVERLAY (4H01CK , 1 ,2 , 6HRECALD 
PRINT 20 

CALL OVERLAY (4 HOICK# 1 , 3. 6HRECALL ) 

RETURN 

10 FORMAT ( / /54H RUBY DAVIS - SUBSONIC-TRANSONIC AERODYNAMICS DIVISID 
1N/31H FOR DICK. BARNWELL A3746 - 4/52H TRANSONIC FLOW ABOUT LIFT 
2 1 NG WING-BODY COMBINATIONS/) 

20 FORMAT UHl//) 

30 FORMAT (8A10) 

END 


B 420 
B 430 
B 440 
B 450 
B 460 
B 470 
B 480 
B 490 
B 500 
B 510 
B 520- 



r> o n 


OVERLAY (DICK, L, II C 0 

PROGRAM! START C 10 

COMMON SIGMA, DELTA, i , BET AS Q, OXR, DX SQR*GAMP l , GP 1DXR , KMM l , KFMl , KF , DE C 20 
1LETA»PIR»C0N4» CON 5 , H , J T , J I , JF , DPHI MX ,DX, JXN, SNO, CS20, SNALP , I J W, JWi C 30 
2O,JW20, JW1X, JW3X,BETA,JW3Ml,DLTPH, JCHCK,IW, JW10M2 , JW3P1 , JWX0M1,M,X C 40 
3WM,XWMSQR,PI,AK2»AX2»AKI»AXI»AX10,CNX»NAMXP1,A1»A2,ZHACH»JMCK C 50 

COMMON R(120>,SPRIME(120},FUN< 120) ,XW( 120),Y1(120) ,Y2(120) ,FUN1(12 C 60 
10) ,FUNO( 120) t IFUNC 120),FUN2( 1201 ,FUN3 ( 120 ) , FUN4( l 20 ) , IGUN( 120 ) ,CP( C 70 
2120), FUNX ( 120) , SLAS(120,6) ,CPO( 120 ) ,KLOA ( 120) ,KUPA( 120) ,FUN5 ( 120), C 80 
3FUN6U20) ,FUN7(120),FUNY(120),CP1( 120),CP2< 120) C 90 

COMMON FON8(120) , FUN 9(120) ,F UN 10(120) ,FUN1 1 ( 120) »Y2PRM(120) , FUN12 ( C 100 
L 120) ,FUNA< 120) ,FUNB< 120) C 110 

COMMON CON7(1QO), C0N8 ( 100) » C0N9( 100 ) ,CQN1 0( 100) , C ON 11 (100) ?C0N1 (10 C 120 
1 0),CQN2 ( 100) ,C0N3< 100 ), OMEGA ( 100 ), ABAR ( 100 ), 88 AR < 100 ) , C6AR C 100 ) , DB C 130 
2AR( 100) , PHIO< 100) ,RW(100) ,RWR( 100) , AXOCR ( 100 ) , ACH K < 1 00) ,PHIOLO( 100 C 140 
3) ,BCHK{ 100) C 150 

COMMON PHIUO(25),QMEGAU(25),ACHKU(25),0BARU(25),CBARU(25) ,03 ARU (25 C 160 
1 ),BCHKLM25) ,PHIOU(25) C 170 

COMMON IFUM(50),VLAM<50),VTAU(50J,VLAMP(50),VTAUP(50I,YV(50),ZV(50 C 180 
1 ) ,FUNA0(50) ,FUN90( 50 )., UUOD( 5 0) ,UU900(50) C 190 

COMMON PH! (109,501 f PHIU(50,25 ) »COEF (21 ) C 200 

COMMON /NMLIST / J 1 • J 2, J3 , J 4, J5 , FAC , KM , RC OM , A , B , i W ALL, P, OMEGAO , AL PH C 210 
1 AD, H SPAN, AM INF » GAMMA, I R ,RC ®RMAX, RN,JS,RS,JW1 , JW2 , JW3 * JWD, I WI NG, 8 1, C 2 20 
2B2, DELI, UEL, IVOR, I D I R , EPS I ,SUB , SUP , I MAX , SFACT OR C 230 

C 240 

PART 1 VARIOUS CON ST ANTS , AX I AL AND RADIAL GRIDS C 250 

C 260 

RAD=57. 29577951308 C 270 

SNALP=SINI ALPHAD/RAD) C 280 

SNOSIN(QMEGAD/RAD) C 290 

C S20= IV~2» *SN0**2 C 300 

IW=Q C 310 

IF (ABSI SNO) . L T • 1 ■ E-06. AND# ABS ( SNAL P ) «GT • 1 • E-06 .A NO. HSPAN «GT • RM AX ) C 320 
1 I W=1 C 330 

SIGMA=SNALP**2 C 340 

DEL T A=RM AX C 350 

1=0 C 360 

BETASQ=1 •— AMINF**2 C 370 

A J 1 — J 1 C 380 

A J2=J2 C 390 

A J3 = .J3 C 400 

DX=l./( AJ3-AJ2) C 410 



DDX*=( AJ2-AJ 1)*DX 
JJF=J4-J1+1 
00 10 JJ=liJJF 

10 XW( Jl+JJ-i AFLOAT tJJ-1 >*0X-D0X 
IF Ul.EQ.il GO TO 30 
J IM 1*4 1-1 
00 20 JJ=1.J1M1 
JJMl=JJ-l 

JP1=J+1 

20 XW( J)=XW( JP1I-0X*FAC**JJM1 
30 IF U4.EQ.J5) GO TO 50 
J5MJ4=J5-J4 
DO 40 J J= 1 1 J5M J4 
J JMi= JJ-1 
J=J4+JJ 
JM1=J-1 

40 XW( J)*XW< JMl)+DX*FAC**JJHl 
50 DXR=1./DX 

DXSQR=0XR**2 

GAMPl=(GAMMA+l. I *AMINF**2 
GP1DXR=GAMP 1*0 XR 
KMMl=KM-i 
KF*KMM1 

IF ( I WALL .NE • 0) KF=KM 

KFMl=KF-l 

AKH=KM 

DEL ETA= 1 • /AKM 
DO 60 K=2 t XF 
AK=K 

E T A= AK*DELET A 
BMAEK=B-A*ETA 
ETAR=i./(ETA+BMAEK*RCOM) 

BMAEK R=l •/ BMAEK. 

CON H K) = • 5*DELET A*BMAEKR*I B*ETAR-2.*AI 
CON=( B*DELE TA*BMAEKR) **2 
C0N2 ( K) =CON*BMAEK R**2 
60 CON3IK)=CON*ETAR**2 
CON 1 1 1 ) - 1 • 

BMADE=B-A*OELE TA 
BMADER= l • / BMADE 
TBM ADE=2. *B-A*DELETA 

tbmadr*i./tbmaoe 


C 4 20 
C 430 
C 440 
C 450 
C 460 
C 470 
C 480 
C 490 
C 500 
C 510 
C 520 
C 530 
C 540 
: 550 
C 560 
C 570 
C 580 
C 590 
C 600 
C 610 
C 620 
C 630 
C 640 
C 650 
C 660 
C 670 
C 680 
C 690 
C 700 

: 710 

C 720 
C 730 
C 740 
C 750 
C 760 
C 770 
C 780 
C 790 
C 800 
C 810 
C 8 20 
C 830 
C 840 



o o o 


BMT ADE=B-2. ♦A*DELETA 

BMTADR=l./BMTADE 

Fi=DELETA*BMADE*RCOM 

F2=3.*DELETA+(2.*B-3.*A*DELETA)*RC0M 

C0N=8.*(B*DELETAI**2*BMTAl)R*TBMADR/F2 

CON 2( 1>=C0N*F1*BMADER**2 

CQN3 1 1 l-CON/ FI 

Pl=3. 141592654 

P IR — 1 ./PI 

CON 4= P I R* 8* DEL ETA* I 2. *6-3. *A*DELETA ) /F2*BMTADR*6MADER 

IF ( I WALL.NE.O) H=P*B*DELETA/ ( B-A »**2*< 1 . ♦ . 5*B*DEL ETA/ C B-A )» 

Jl-2 

JF-J5-1 

IF ( AMINF.LE.l.l GO TO 70 
J 1 = 3 

70 JT= J I +JF 

00 90 K=I,KF 
AK= K 

ETA=AK*OELETA 

RM( K) =ETA/(B-A*ETA)*RCOM 

ARG=l.-»-BETASq*RW<K>**2 

IF (ARG.LT.O.I GO TO 80 

AXOCR (K ) = 1 • / SORT ( ARG) 

80 RWR(KI=SNALP*SN0/RW(KI 

CON LO(KI = C0N2(K)«>SNALP*SN0*RW< K» 

CON 11 (K)=C0N2(K)*RW(KJ**2 
CON 7( K I = 2 »*C0N3 { K ) *R» R ( K ) **2 
CON 81 K)=SNALP**2*CON2(K»*RW4KI**2 
C0N9 ( K) = SNA LP**2*CGN2 C K 1 *RW ( K I 
90 ABAR(KI = 1.«C0NUK) 

PART 2 BODY GEOMETRY 


J2M 

1= J2-1 





DO 

100 J= 

1, J2MI 



R IJ 

)=0. 





SPR 

I ME( J J 

=0. 




COM 

= RC*RMAX 




J SM 1= J S- 1 





IF 

C IR.EO 

• 1 ) 

GO 

TO 

120 

IF 

( IR.EO 

.2 ) 

GO 

TO 

140 

IF 

( l R . EQ 

.3) 

GO 

TO 

160 

IF 

I IR.EQ 

.41 

GO 

TO 

180 


C 850 
Z 860 
C 870 
C 880 
C 890 
C 900 
C 910 
C 920 
Z 930 
C 940 
C 950 
C 960 
C 970 
C 980 
C 990 
C1000 
CIO 10 
C 1020 
C 1030 
C 1040 
C1050 
C 1060 
C 1070 
C 1080 
C 1090 
C 1100 
C1110 
C1120 
Cl 130 
C 1 1 40 
C 11 50 
C 1 160 
C 11 70 
Cl 180 
C 1190 
C 1200 
C 1210 
C 1220 
C 1230 
C 1240 
C 1 2 50 
C 1260 
C 1270 
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DO 110 J=J2#JSM1 

Y=l.-XW(Jl 

R( J)=CQM*(Y-Y**RN) 

110 SPRIME(J)=2.*PI*CGM*(RN*Y**< RN— 1 .)“l.l*R(Jl 

GO TO 220 

120 DO 130 J=J2.JSM1 

R(J)=C0M*{XW(J1-XW(J)**RNI 
130 SPR1ME< Jl=2.*PI*COM*C 1 .-RN*X Ml Jl ** ( RN-l. I )*RCJ 
GO TO 220 

140 DO 150 J= J2 » JSM 1 
Y=1.-2.*XW( J) 

R( J )=RMAX*SQRT( ABS( l.-Y**2D 
150 SPRIMF* J)=4.*PI*RMAX**2*Y 
SPRIME( J2)=0. 

GO TO 220 

160 DO 170 J=J2» JSMl 
R( J l=RMAX*XW{ J ) 

170 SPR IME( J)=2.*P I*RMAX*R( J I 
GO' TO 220 

100 DO 210 J=J2»JSM1 

IF (XW< JI .GT..25) GO TO 190 
R( J)-8.*RMAX*XW< J)*( l.-2.*XW< J) I 
SPRIMEI JI=2.*PI*R( J) ! *8.*RMAX , Mi.~4.*XW( Jl I 
GO TO 210 

190 IF C XW< JI.GT..75I GO TO 200 
R(J)=RMAX 
SPRIMEC Jl*0. 

GO TO 210 

200 RC J I = 8.*RMAX*( l.~XW( Jl I * ( 2 .*XW ( J I- 1.) 

SPR I ME ( J 1-2 .♦PI*R( J)*8.*(3.-4.*XW< JU*RMAX 

210 CONTINUE 
220 DO 230 J=JS»J5 
R| J )-RS 

230 SPR IMEt J )=0 • 

PART 3 RING GEOMETRY 

IF (JM3.GT.JW2) CAAl=HSPAN/< XW(JW3)-XW( JW2I) 

JWIP1 = JWH-1 

JW2P1*JW2+1 

JW3P1=JW3 + 1 

M*JW3 

ZMACH-O. 


C 1280 
C 1290 
C 1300 
C 1310 
C 1320 
C 1330 
C 1340 
C 1350 
C 1360 
C 1370 
C 1380 
C1390 
C 1400 
C1410 
C1420 
C 1430 
C 1440 
C 1450 
C 1460 
C 1470 
C1480 
C 1490 
C 1500 
C 1510 
C 1520 
C 1530 
C 1540 
C1550 
C 1 5 60 
C 1570 
C 1580 
C 1590 
C 1600 
C 1610 
C 1620 
C 1630 
C 1640 
C 1650 
C 1660 
C 1670 
C 1680 
C 1690 
C 1700 


on 240 J=1 » JWL C 17 10 

FUNA( J)= 1 • C 1720 

FUNB( Jl=0 « C L 730 

FUN 5( J) ~0. C 1740 

FUN6( J)=0. C1750 

FUN7(JJ=0. C 1760 

FUN2( Jl =0 ■ C 1770 

FUN3I Jl=R( J >**2 Cl 780 

FUN4(J>-0. C 1790 

IGUN( J I = I DIR C 1800 

Y2PRMI J >=0. C 18 10 

FUNOI J1 = 0. C 1820 

Y2(J)=0. C 1830 

I FUN ( J) ~0 C 1840 

240 FUN( J)=0. C 1850 

CNNl=l./(XW(JW3l-XW(JWl)l C I860 

CNN2=HSP AN**4*CNN 1**3*GAMP 1*< 1 .*2. *DELI**2 C1870 

DSLPl=DEL*l. C 1880 

T0ELP1=2.*0EL+1. C1890 

DELSQ=DEL*»2 C 1900 

CNX=i • C 1910 

IF < SN0.LT.-1.E-06) CNX=-1. C1920 

CNNA=CNX*HSPAN*TDELP1*CNNI*SNALP C1930 

CNNAO=H SP AN*TDELP i*CNNl C1940 

CNN6=-CNX*HSPAN*TDFLPI*DELSQ*CNN1*«'2*SNALP C1950 

JW10=JW1P1 C 1960 

JW2 0= JW2 ♦ 1 C1970 

CNN6- (GAMP1 *CNNl**3 I **3* (HSPAN**2*TDELP II **4/ 128. Cl 980 

JCHCK=JW3 C 2000 

IF (IWING.EQ.01 GO TO 250 C2010 

A2=-B2*(XW< JWDl-XWt JWl II C2020 

AX2=(HSPAN~A2)/B2 C2030 

AY2=A2*B2* AX2 C2040 

IF (AY2.1T.1.E-06) AY2=l.E-06 C2050 

AK2=B2/(DEL*AY2) C2060 

IF ( IWING.NE.2.AND.IWING.NE.-2I GO TO 250 C2070 

A 1= R( JW 1 ) C2080 

AXl=-(A2-All/(B2-Bll C2090 

AX10=AX1+XW( JW1I C2100 

A Yl =Al+8 1 *AX 1 C2110 

IF (AY1.LT. 1.E-Q6I AY 1 st ! .E— 06 C2120 

AKl = (B2-Bil /( AY1*ABS(0ELIII C213 0 

JCHCK=JW1 C2140 



250 00 410 J= JW1PI # JW3 
FUNA( J) = l. 

FUNBC J) = 0. 

IF (IWING.NE.OI GO TO 260 

AX= (XW(JW3I— XW(JII*CNN1 

C NN3= SORT ( ABS( DEL SQ+TDELP1 *AX**2 ) I 

CNN4=1./CNN3 

Y2( J)=HSPAN*(DELP1-CNN3) 

FUNQ{ J )=HSP AN**2*CNNl*(DELPl*CNN4-l. )*TDELPl*AX 
IF (Y2( Jl.LT.*< JU GO TO 400 
R0Y2E4=(RtJ)/Y2( J) 1**4 

FUNU)=.5*FAC0**2*CNN2*<DELP1*CNN4-1.>*(1.-DELP1*DELS0*CNN4**3I*AX 
l*2.*FAC0*R0Y2E4*FUNQ( J)**3/Y2« J) **2*GAMPi 

FUNOJ=FUNO ( J ) 

FUNGI J )=.5*FACQ*( HSP AN*CNNl)**2* ( l .-OELP l*DELSQ*CNN4**3)*TDELPl>2. 
1 *R0Y2E4*CFUN0( J )/Y2< J))**2 
IF (J.GT.JW2) GO TO 340 
GO TO 320 

260 AX=XW ( J )— XWCJWl) 

B X= AK 2* ( A X- A X 2 ) 

IF ( BX.LT 100 • ) BX=- 100 • 

IF (BX.GT.100.) 9X=1QQ. 

IF < ABSC8X) .LT.l.E-06) GO TO 270 
CX=EXP(-BX) 

XD=1./I U-CXI 
Y2( J)=~B2*< AX-AX2I*XD 
Y2 J P=-B2* « 1 ( I .*BX I *CX) *X0**2 
Y2JDP=-B2*AK2*CX*I BX* ( l.*CX)*XD-2. )*X0**2 
GO TO 280 
270 Y2( J ) =-B2/BX 
Y2JP=-.5*B2 
Y2JDP=-.5*B2*AK2 

280 IF UWING.EQ. 2.0R.IWING.EQ.-2) GO TO 290 
Y2( J) = A2 + B2*AX«-Y2< J) 

Y2JP=82+Y2JP 
GO TO 310 

290 BX~ AKl* t AX— AX1 ) 

IF IXWi J).LT.AX10) JCHCK=J~1 
IF IBX.LT. -100*1 BX=-100 • 

IF (BX.GT.100.) BX=100. 

IF ( ABS ( BX ) »LT • 1 . E-061 GO TO 300 


C 2150 

C2160 

C2170 

C 2180 

C2190 

C 2200 

C2210 

C2220 

C2230 

C2240 

C 2250 

C 2260 

C2270 

C2280 

C2290 

C 2300 

C 2310 

C2320 

C2330 

C 2340 

C2350 

C2360 

C2370 

C 2380 

C 2390 

C2400 

C2410 

C 2420 

C 2430 

C 2440 

C2450 

C2460 

C 2470 

C2430 

C2490 

C2500 

C 2510 

C2520 

C2530 

C2540 

C 2550 

C2560 

C 25 70 



CX= EXP{— BX I C2580 

XD=l./< 1 .-CXI C 2590 

Y2IJ)=Y2(JI*( B2-9 1 l*{ AX-AXl)*XD-#-AL-*-Bl*AX C2600 

Y2JP=Y2JP*<B2-BII*U.-(1.*8XI*CXI*X0**2*B1 C2610 

Y2JDP=Y2JDP*(B2-flll*AKl*CX*(BX*( 1 .+CX) *XD-2. I ♦X0**2 C2620 

GO TO 310 C 2630 

300 Y2(J)=Y2<J)*A1*8L*AX*(B2-BII/BX C2640 

Y2J,P=Y2JP + .5*( B2-61) C2650 

310 IF (Y2( JI.LT.R(J) I GO TO 400 C2660 

JG= J-Jrtl D+3 $ FUNA0(JG)=1. $ FUNB0(JG)=0. C2661 

R0Y2E4=(RI J)/Y2( Jl »**4 C 2670 

F AC 0= l .-ROY 264 C2680 

FUN0J=Y2C J)*Y2JP C2690 

FUN2( J) - FACO*FUNOJ C2700 

FDP=Y2( J)*Y2JDP+Y2JP**2 C2710 

FUN ( J )=. 5*GAMPi*F ACO*FUNOJ*FOP C2720 

FUNO( J>=.5*FAC0*FDP C2730 

IF (J.GT.JH2I GO TO 340 C2740 

320 FUN3( J) = .5*Y2( Jl**2*( l.*R0Y2E4) C2750 

IJW*J+1 C2760 

J W20= I JW C2770 

IF ( I WI NG.NE.O I GO TO 330 C2780 

FUN4< JI=CNNA*AX*CNN4 C2790 

FUN4( J|=FUN4< JIM1 . M l.-2.*SN0**2l * (R4 J )/Y2( J 11**21 C2800 

Y 2PRM ( J ) = CNNA0*AX*CNN4 C2810 

FUN50)=CNNB*CNN4**3 C2820 

GO TO 360 C2830 

330 FUN4( JI=CNX*SNALP*Y2JP C2840 

FUN4( J|=FUN4I J )*(l.+< 1 .-2. *SN0**21 * CRI JI/Y2I J1|**2I C2850 

Y2PRM(J|=Y2JP C2860 

FUN5( JI=CNX*SNALP*Y2JDP C2870 

GO TO 360 C 2880 

340 YU JJ=CAA1*(XW< Jl-XWI JW2I1 C2890 

IF (J.EQ.JW3I Y 1 1 J l=Y2( J I C2900 

IF lYHJl.LE.RI Jll GO TO 320 C2910 

AK6 AR=Y1I JI/Y2IJ) C2920 

ANUM1 = [ 1 •— AKB AR 1/(1. +AKB AR I C2930 

FUN2< JI=.85*FACO*FUNO(J)*ANUMl C2940 

ROY 2E2f < R ( J I /Y2< J 1 1**2 C29S0 

R0YIE2=(R( Jl/YH J1 1**2 C2960 

AKPRM= 1. / < ( 1. -ROY 2621 *Y2< JII*C ( 1 .+R0YL62I *CAA1-C 1.-R0Y1E2I*! l.fROY C2970 
l 2E2 ) *Y1 ( J I *FUNQJ/ I ( 1.-R0Y2E2 1 *Y2( J 1 1 1 C2980 

FUN ( J l = . 722 5* C FUNI Jl *ANUMl— • 5*GAMPl* (FUNQJ*FACO/ ( l.+AKBAR > I **2*AKP C2990 


1RM) 

PUNCH Jl = • 85*FUN0I J »*SQKT ( A0S< ANUMl I ) 

IF (J.EQ.JW31 GO TO 350 

FUNOUi=FUNO(J)-.425*FUNOJ*( 1.-ROY2E4I *AKPRM/SQRTI U 
I KBARI**3I 
350 FUN4(J)*0. 

FUN5I J)=0. 

IF ( IWING.EG.O) Y2PRM ( J )*CNNA0*AX*CNN4 
IF (IWlNGvNE.O) Y2PRMI J)=Y2JP 
360 IF < I VOR. EQ.O.OR.J.GT.JWIO) GO TO 370 
RBP-.5*PTR*SPRIME< JI/RIJ) 

CHE KK=(Y2(J)-RUII/ I (Y2PRMCJ l-HBP l*OKI 
IF (CHEKK.LT,. 1) GO TO 400 
3 70 ETA==0. 

K J= 0 

380 E TA=ETA+DELETA 
KJ=KJ+l 

RAD=ETA/( B- A* ETA) ♦ROOM 
IF (R AD.GT. Y2( J I) GO TO 390 
GO TO 380 
390 I FUN( J) =K J- 1 

IF (I FUN! J) .EQ.OI IFUN(J»=1 
IGUN( Ji = JDIR«\IFUN( J) 

GO TO 410 
400 ( FUN ( J)=0 

I GUN( JI=IDIR 
FUN4< Jl=0. 

FUN5( J)=0. 

FUN6( J» = 0. 

FUN 7( J) = 0. 

Y2PRMC J)=0. 

FUN (J)=0. 

FUNOl J)=0. 

I JW= J+L 
FUN2( Jl = • 0 
FUN3( J»=R( Jl**2 
JW10=J+1 
410 CONTINUE 

FUN AO (2 ) = 1 • 

Jfj(CK=JWlO-l 
J WIQM2-JW 10—2 
JW3Pl = JW3 + l 
jmOMl=JHlO-l 


C 3000 
C3010 
C 3020 

AKBARIM1.+A C3030 
C3040 
C3050 
C3060 
C3070 
C3080 
C3090 
C3100 
C3110 
C 31 20 
C3130 
C3140 
C 3150 
C3160 
C3170 
C3180 
C3190 
C3200 
C 3210 
C3220 
C 3230 
C3240 
C3250 
C 3260 
C3270 
C3280 
C3290 
C 3300 
C3310 
C3320 
C3330 
C 3340 
C335Q 
C3360 
C 3370 
C3371 
C 3372 
C3380 
C3390 
C 3400 



o n o 


JW3Ml=JW3-i C3410 

IF IIJW.EQ.JW3PU GO TO 430 C3420 

DO 420 J=IJW,JW3 C3430 

420 FUN3( J)=FUN3<J-l > ».5*DX*C FUN2I JM-FUN2IJ-1H C3440 

430 DO 440 J=JW3Pt,J5 C3450 

FUN A( Jl— l • ' C3460 

FUN0( J) =0* C 3470 

FUN5( J) = 0. C3480 

FUN6(J)=0. C3490 

FUN7I J)-Q. C3500 

FUN2 ( J) = 0 • C35I0 

FUN3I JI=FUN3(JW3> C3520 

FUN4(J)*0. C3530 

IGUNt J)*IGUN( JW3J C3540 

Y2PRM(J>=0. C 3550 

Y2( J) =Y2( JW3 ) C3560 

IFUM J)-IFUN(JW3J C 3570 

FUNO ( J) = 0 • C3580 

440 FUN< Jl = 0« C 3590 

DO 450 J=„,J2 C3600 

IF I X W( JJ «LT •— 1 • ) GO TO 450 C3610 

JXN=J C3620 

GO TO 460 C3630 

450 CONTINUE C3640 

460 DLTPH=0. C3650 

IF ( 1WING.LT. 0) CALL MACH C3651 

C3660 

PART 4 VORTEX OVER WING C3670 

C3680 

IF (IVOR.EQ.O) GO TO 720 C3690 

IF < IV0R.NE.2) JCHCK=JW3 C3700 

JHKMI=JCHCK-I C3710 

JAM=1 28 C 3720 

AJAM=JAM C3730 

AJAMR=l./AJAM C3740 

ADX2= DX + AJAMR C3750 

Y2P-Y 2PRM ( JW IQ) C3760 

RBP- .5*PIR*SPRIME1JWI0)/RIJW10) C3770 

TOT*C l.-l Y2( JW10)-R( JfcllO) ) ✓ ( OX*C Y2P-R8P) 1 I*AJAM«-1. C3780 

NTOT= TQT C3790 

JT= JAM-NTOT C3800 

A JT*JT C 38 10 

RB=R( JW 10 I— RBP*AJT*ADX2 C3820 



Y2B=Y2( JWIU |-Y2P*AJT*ADX2 

RAT IO=FUNAI JW10)-FUNB< JW10I*AJP* ADX2 


RAT IDP=FUNBt J I 

ANUMO=SNALP/( Y2P“RBPJ>*RAT 10 

YA=-. 00451 ♦. 561 14*ANUM0-. 121 52*ANUM0**2 

YVT=RB* ( Y28— KB I *( . 9903 1-. 98407« l YA+2 • 2948 1*YA**2- 1 


• 78322*YA**3I 


ZVT=( Y2B-R8 ) *YA 


HB=Y2B+RB**2/Y2B 

HBP=ll.-(RB/Y2BI**2)*Y2P*2.*RB/Y2B*RBP 

AFi = ( Y2B-RB) /RB 
AF2-(YVT-RB)/RB 
AF3-ZVT /R B 

ANUHl=AF2**2-AFi**2-AF3**2 

ETA=1**.5*ANUM1 

XI*AF2*AF3 

ANUM2=SQRT( ANUMl**2+4.*C ETA*XU**2) 
BLAM=« 7071 067 8* 1 SQR T( ANUMl*ANUM2 ) 
BTAU=ETA*Xl/BLAM 
J ST AT=JW10— l 

IF (NTOT.LE.OI GO TO 470 
JJ2=JAM 
JJ1=NT0T+1 
GO TO 480 
470 J J2-JT 
JJi = l 

430 DO 650 J=JS¥AT»JW3 
JG= J-JW10+3 

L = JG 

00 640 J J-J Jl « JJ2 
AJJ=JJ 
ADX3=ADX2 

1 0=1 
RBG=R8 
Y2BG=Y2B 
R8PG=RBP 
Y2PG=Y2P 
HBG=HB 
HBPG=HBP 
BLAMG=8LAW 
BT AUG=BTAU 

ratiog=ratio 

R AT IPG=RAT I OP 

490 A I Q=l G 


C3B30 

C 3840 

C3841 

C3850 

C3860 

C3870 

C 3880 

C 3890 

C3900 

C3910 

C3920 

C3930 

C 3940 

C3950 

C3960 

C 3970 

C 3980 

C3990 

C4000 

C4010 

C4020 

C4030 

C4040 

C4050 

C4060 

C 4070 

C4080 

C4090 

C4100 

C4110 

C4120 

C4130 

C4140 

C4150 

C4160 

C 4170 

C4180 

C4190 

C4200 

C4210 

C4220 

C4221 

C4230 



A 1 0R= 1. / A I U C4240 

DO 640 lS=i ,IQ C4250 

A I S=I S C4260 

ABC 1= AJAMR* ( AJAM— A J J*1 (AIS— .5)*AIQR) C4270 

ABC2= l.-ABC 1 C4280 

ABC3=ABC1-.5*AJAMR*AIQR C4H90 

ABC4=1. -ABC3 C43G0 

IIC=1 C4310 

500 ANUMl=l.«-BLAM**2-BTAU**2 C4320 

, ANUM2=SUR T ( ANUM l**2+4.*IBLAM*BTAU)**2) C4330 

E TA-. 7071 0678*SQRT { ANUM1 +ANUM2 I C4J40 

XI = BLAM*BTAU/ETA C435Q 

CHCEK-Y2 B/RB-l • C4360 

IF (CHCEK.LT. .Oil GO TO 510 C4370 

ANUmO=ETA**2+XI**2+4.*(RB/HB)**2 C4380 

ANUM20=^QRT(ABS( ANUM 10*42-16. *( ETA*RB/HB )**2 ) 1 C4390 

ARG=£TA**2*.5*i ANUM20-ANUM10I C440Q 

GO TO 520 C4410 

510 AF 1= ( Y2B-RB 1**2 C4420 

AF2=BLAM**2-BTAU**2 C4430 

AF3=1./RB**2 C 4440 

ANUM1 0=.5*(AFl*AF3*AF2l C4450 

AaUM20=AF3*SQRT(AFi*< AF 1 +2 .*RB**2* AF2 I «-RB**4* < B4. AM**2 + BTAU**2 1**21 C4460 

ARG=ANUM10+.5*ANUM20 C4470 

520 YVT=. 5*HB*( ETA+SQRT ( ABS( ARGI ) ) 0 4*80 

ZVT=Xi*HB*Y\/T/( 2 •* YVT-ET A*HB I C4490 

ANUM=RB**27<YVT**2*ZVT**2I C4500 

FNUM2-HB*( BLA M**2 +B TAU**2 ) C4510 

AV=(YVT*BLAM+ZVT*BTAU I/FNUM2 C4520 

AZ=(YVT*8TAU-ZVT*8LAM)/FNUM2 C4530 

9Y=(YVT**2-ZVT**2 l**2~4.*( YVT*ZVT)**2 C4540 

flZ=4. *Y VT*ZVT* ( YVT**2-Z VT**2 I C4550 

ANUM3=RB**4/(BY**2*BZ**2 I C4560 

B Y0=1 »-ANUM3*BY C4570 

BZ0=-ANUM3*BZ C4580 

C Y— AY*BYO— AZ* BZO C4590 

CZ= AZ*BYO+AY*&ZQ C4600 

DY=( AY**2-AZ**2 I *BY0~2 . *AY*AZ*BZO C4610 

D Z= 2 • *A Y* A Z *B Y 0 ♦ ( AY **2~AZ**2 l*BZO C4620 

ANUM4=1./(YVT**2*ZVT**2J C4630 

A NU M5= A NU M* ANU M4 C4640 

DYO = 1 •♦3. *( YVT**2-ZVT**2 1 *ANUM5 C4650 

DZO=6.*YVT*ZVT*ANUM5 C4660 



ANUM6=l./(BY0**2+BZ0**2 ) 

EY=ANUM6*(BY0*DY0 + 8Za*DZ0> 

E 2- ANUM6*<0YO*DZO-BZO*DYO) 

F Y= ANUM4* ( ZVT * ( EY— DY ) -YVT* ( D2~EZ ) ) 

FZ=ANUM4*< YVT*( 0Y-EY)+ZVT*(EZ-DZ )> 

IF IJ.GT.JCHCK) GO TO 530 

IF (J.EO. JCHCK.AND. JJ.GE* 2) GO TO 530 

GAN-* 5*HB* I BL AM + BT AU**2/ BLAM ) 

GAN=GAN*RAT10 

GANSAV=GAN 

AMY=( YVT-Y2BI*HB*RATI0 *• 5/GAN* I l.-(BTAU/8LAM)**2 I 
AMZ=ZVT*HB*RAT If) *.5/GAN*< 1-- 1 BTAU/BLAM 1**2 » 

ANY=( YVT-Y2B)*HB*RATIQ *8TAU/ I GAN* BLAM) 
AN2=2VT*HB*KAT 10 *BT AU/ (GAN*BLAM ) 

APY=( YVT-Y2BI/RAT10 
APZ=ZVT/RAT 10 
AOY = < YVT-Y2BI/HB 
A02=2VT/HB 
GO TO 540 
530 GAN=G ANSAV 
AMY=0. 

AMZ=0. 

ANY=0 • 

ANZ=0. 

AOY =0 • 

AOZ-O. 

APY=0. 

APZ=0. 

540 ANUM7=HB*BY0*ANUM4*ANUM6 
ANUM8=HB*B20*ANUM4*ANUM6 
ANUM9=MJLAM* YVT+ BT AU*Z VT 
ANUM10=BT AU*Y VT-BLAM*/ VT 
0Y=ANUM7*ANUM9-ANUM8*ANUM10 
0Z=ANUM7* ANUM10+ANUP8*ANUM9 
GY0=tRB*ANUM4i**2*l YVT**2-ZVT**2) 
GZ0=-2.*YVT*ZVT*(RB*ANUM4)**2 

GY=ANUM4/H 1 .“GYQ)**2+GZO**2 )* (Y VT* ( l.-^GYQ ) ■£'ZVT*GZOI 
GZ= ANUM4/ ( ! l.-GYO )**2+GZ0**2)*I YVT*GZO-ZVT*C l.-GYO) ) 
G8ARY=ANUM4*ANUM6*( YVT*BYG+ZVT*BZO) 
GBARZ=ANOM4*ANUM6*{YVT*BZO“2Vr*8YOI 

H1I=0 Y+H8+AMY 
H12=— OZ*HB+ ANY 
H2I=0Z*HB+AMZ 


C4670 

C4680 

C4690 

C4700 

C4710 

C 4720 

C4730 

C4740 

C4750 

C 4760 

C4770 

C4780 

C 4790 

C4800 

C4801 

C4802 

C 48 lb 

C4B20 

C4830 

C 4840 

C4850 

C4860 

C4870 

C4880 

C4890 

C4900 

C4900 

C4902 

G 49 1 0 

C 49 20 

C49 30 

C4940 

C4950 

C4960 

C4970 

C 4980 

C 4990 

C5000 

C 5010 

C 5020 

C5030 

C 5040 

C5050 



H22-0Y*HB+ANZ 

Hi=-SNALP*<CZ*RATlO-.5*GAN*<CZ/(BLAM*HB)-FY))FRB*(YVT*ANUM4+2.*GYI 
i *RBP-(OY*BLAM-OZ*BTAU*-AGY« , HB*GBARY ) *HBP— APY*RAT I QP 
H2=SNALP*(CY*RAT I0-.5*GAN*(CY/C BLAM*HB)*FZ ) l+RB*( Z VT*ANUM4«-2. 

I *GZ)*R8P-(OZ*BLAM*OY*BTAU*AOZFHB*GBARZ)*HBP-APZ*RATJOP 
BNUMQ= L • / C H 11*H22-H12*H21 ) 

BNUMI=H1*BNUM0 
BNUM2=H2*BNUMO 
8LAMP=BNUM1*H22-BNUM2*H12 
BTAUP=BNUM2*H11-BNUM1*H21 
IF (HC.GT.U GO TO 580 
I IC=2 

BLAHO= BL AM 

BTAUO=BTAU 

BLAMP1=BL AMP 

BTAUPl^BTAUP 

BLAM=BLAM+.5*ADX3*8LAMP 

8TAU=BTAU«-. 5*A0X3*BTAUP 

IF IJJ.NE.l.OR. la.NE.l.OR, J.LT.JW1C) GO TO 550 

VLAMPt JGJ=BLAMP 

VTAUPl JGI=BTAUP 

YV< JG1=YVT 

ZVC G)=ZVT 

IF (J.EQ.JW3I GO TO 650 
550 IF (J-IT.JWIG) GO TO 560 
RB=A8C1*R< J)+ABC2*R< J+l I 
Y2B=Y2( Ji*ABCl+Y2I J*I)*ABC2 
RATI 0=FUNA( J)* ABG 1+FUNA U+l l *ABC2 
RATIOP=FUNB(JI*ABCI+FUNBiJ'*-l »*ABC2 

RBP = .5*PIR*( SPRIMEI J )/R C J ) *ABC1+SPR IME ( J*ll/R (JFil*ABC2l 
Y2P=Y2PRM(J J*ABCI + Y2PRMU + 1)*ABC2 
GO TO 570 

560 RB=R(JH10)-ABCl*DX*RBP 
Y2B=Y2( JW 10 J-ABC I*0X*Y2P 
RATIO=FUNA( JWlO)-ABCl*DX*FUN8fJWiQ> 

RATIOP=FUNB(JW10) 

570 HB=Y2B*RB**2/Y2B 

H8P=Y2P*( 1.-IRB/Y2B )**2)*2»*R8/Y2B*RBP 

GO TO 500 

580 IF (IIC.GT.2) GO TO 590 
ff KC— 3 

BLAM=BL AM0«-.5*ADX3*BIAMP' 

8TAU=3TAU0+.5*A0X3*BTAUP 


C 5060 
C 5070 
€5080 
C 5090 
C 5 1, 0 0 
C 51 10 
C5120 
C 5130 
C5140 
C5150 
C5160 
C 5 170 
C5180 
C 5190 
C 5200 
C 52 10 
C 5220 
C5230 
C5240 
C5250 
C 5260 
C 5270 
C 5280 
C 5290 
C5300 
C5310 
C5320 
C5330 
C 5331 
C5340 
C 5350 
C 5360 
C 5370 
C 5380 
C5390 
C 5391 
C 5400 
C 5410 
C 5420 
C 5430 
C 5440 
C 5450 
C 5460 



BLAMP2= BLAMP 
BTAUP2= BTAUP 
GO TO 500 

590 IF { l IC-GT. 3) GO TO 630 

CHECKL=ABS( ( BLAMP2— BLAMP) / BL AM P2 ) 

CHECKU- ABS( ( BT AUP2-BT AUP J/BTAUP2 ) 

IF (CHECKL.LT.. Ol.OR.CHECKU.LT. .01 I GO TO 600 

RB=RBG 

Y2B-Y2BG 

RBP=RBPG 

Y2P=Y2PG 

HB=HBG 

H8P=HBPG 

BLAH-BLAMG 
BTAll=BTAUG 
I Q=2*IQ 
ADX3=.5*ADX3 
RAT IO=RAT IOG 
RAT IQP-RAT I PG 
GO TO 490 
600 IIC=4 

•0LAM=BLAMO4>ADX3*BLAMP 
BTAU=BTAU0+A0X3*BTAUP 
BLAMP 3=BLAMP 
QTAUP3=BT AUP 

IF (JaLT.JWlO) GO TO 610 
R9=ABC3*R(J »+ABC4*R(J+l > 

Y2B=ABC3*Y2( J )+ABCA*Y2( ) 

RATIO=FUNA( J ) * ABC3 >FUNA( J *1 ) *ABC4 
RATIOP=FUNB( J) *ABC3+FUNB ( J+I )*ABC4 

RBP = .5*PIR*( ABC3*SPRIME(,j»^RC J )«-ABC4*SPRI ME ( J*ll /R( 
Y2P-ABC3*Y2PRM( J> ♦ ABC4*Y2PRM( J+l I 

GO TO 620 

610 RB=RUvUOI-ABC3*DX*R8P 
Y2B=Y2( JW10 )-ABC3*DX*Y2P 
RAT IO=FUNA( JW10I-A8C3*DX*FUNB( JWIO) 

RAT I0P=FUNBUW10» 


>1 


620 HB= Y20*RB**2/Y2B 

HBP=Y2P* ( l.-(RB/Y2B)*«'2l * 2 .*RB/Y2B*RBP 


630 BLAM= BLA MOM BL AMP1 ♦2.*( BLAMP2 ♦BLAMP 3l ♦BLAHP I ♦A0X3/6. 
640 BV AU=BT AUQ-M BTAUP i*2. *( BTAUP2.+BT AUP3) ♦BTAUP) ♦ADXS /6. 


JAM=16 


C5470 
C 5480 
C 5490 
C5500 
C 5510 
C5520 
C 5530 
C 5540 
C 5550 
C 5560 
C5570 
C5560 
C5590 
C 5600 
C 56 10 
C5620 
C5630 
C5640 
C 5641 
C 5650 
C5660 
C 5670 
C 5680 
C5690 
C 5700 
C5710 
C 5720 
C5730 
C 5740 
C5741 
C 5750 
C 5760 
C5770 
C 5780 
C5790 
C 5800 
C5801 
C 58 10 
C 5820 
C5830 
C5840 
C5850 
C 5860 




A JAP= JAM 
A J AMR~i« / AJAM 
A0X2=DX*A JAMR 
J J2=J AM 
JJl=l 

VLAM( JG+1 )=BLAM 
VtAU( JG+li = BTAU 
650 CONTINUE 

JG= JW2- JWlO+3 

IE (JCHCK.LTc.JW2) GO TO 660 

DLTPH=2.*0X*SNALP*(2«.*(Y2( JW2 )+R ( JW2 )**2/Y2( J W2H *C VLAM 1 JG) ♦VLAMP! 

1 JG)*VTAU( JG ) * VT AUP ( JG ) ) ♦( ( l.-( RS J W2 ) /Y2( J W2) 1**2) *V2PRM( JW2 ) +PI R*S 
2 PR I ME l J W 2 ) / Y2 ( J W2 ) )*(VLAM( JG ) **2+VY AU( JG) **2 ) ) / ( 1 .-VT AU( JG 5**21 *FU 
3NA( JW2)+2.*DX*SNALP*(Y2< JW2)+R(JW2)**2/Y2( JW2 ))*( VLAM( JG)**2*VTAU( 

4JG)**2) /( l.-VTAU< JG ) **2 ) *FUNB ( JW2 ) 

GO TO 670 

660 JG1-JCHCK-JW10+3 

GAN=.5*Y2( JCHCK)*( VLAM< JG1 KVTAUI JG1)**2/VLAM( JGl) ) 

G AN=G AN* ( 1. ♦ ( R ( JCHCK ) /Y2( JCHCK ) )**2 )*FUNA ( JCHCK) 

DLTPH=2 . *SNALP*GAN*DX*( ( ( l.-VTAU( JG) ) /( ( l.-VTAU( JG) )**2*VLAM( JG)** 
12) + U/C i.«y/TAU( JG ) ) )*VLAMP(JG)+VLAM( JG)*< 1.7 ( ( l .-VTAU( JG) § **2«-VLAM 
2 ( JG )**2 )— 1« /( 1 VTAU( JG) )**2 )*VTAUP< JG) ) 

670 DO 700 J=JVU0,JW3 
JG=J~ JW10+3 

IF (J.LE. JCHCK) GO TO 680 
0GANDX=0. 

GO TO 690 

6 80 G AN=. 5* ( Y2 ( J ) +R ( J ) **2/Y2 ( J) ) * ( VL AM ( JG ) ♦VT AU(JG)**2/VLAM(JG)) 

0GAN0X=.5^Y2PRM( J) *( l.-( R ( J ) /YZU ) ) **2 ) *( VLAMf JG) ♦WTALM JG) **2/VLAM 

1 t JG) 1 )+.5*<Y2( J) + R( J )**2/Y2 ( J ) )*VLAMP( JG) *( I •- < VT AUI JG) /VLAM( JG) ) ** 

2 2 ) ♦ ( Y2( J ) ♦R ( J ) **2/ Y2( J) ) *VTAU( JG) /Vi AM( JG )* VTAUP ( JG) 
DGANDX-DGANDX*FUN A( J )+GAN*FUNBSJ ) 

GAN=?GAN*FUNA(J) 

690 CP(Jl=GAN*VLAM(JG)*(Y2U)+R(J)**2/Y2(J))*2. 

700 CPO i J ) - ( ( DGANDX*V L AM ( JG )+GAN*VLAMP ( JG) )*(Y2( J )+R ( J ) **2/Y24 J) ) ♦GAN* 
l VLAMl JG)*Y2PRM(J!*H.-(R( J )/Y2(J ) 1**2) )*2. 

00 710 J = JW10 t J W3 

IF (J.EQ.JWIO) OLFDP=OXR*(CPO( JWlO + 1 )-CPO( JWIO)) 

IF (J.EQ.JW3) OLFDP=DXR*(CPO( JW3 ) -CPO ( JW3-1 ) ) 

IF ( J.GT.JW1O.AN0.J.LT.JW3) OL FOP= «5*DXR* (CPO ( J * l )-CPO( J- .11 1 
FUN ( J )=FUN( J) Hh. 5*GAMPi*( 2* *CPO( J ) *FUNO( J) +DLFDP* ( FUN2 ( J)+CPO( Jii ) 
FUNQ(J)=FUNO(J)«-. 5*01 FOP 
FUN2( J)-FUN2( J)*CPO( J) 


C 5870 

C 5880 

C 5890 

C 5900 

C5910 

C 5920 

C5930 

C5940 

C5950 

C5960 

C 5970 

C5980 

C5990 

C 5991 

C5992 

C6000 

C 6010 

C6020 

C6030 

C 6040 

C6050 

C 6060 

C 6070 

C 6080 

C6090 

C6100 

C6110 

C6120 

C6130 

C 6140 

C 6150 

C 6160 

C6170 

C6180 

C6190 

C 62 CIO 

C6210 

C6220 

C62 30 

C 6240 

C6250 

C 6260 

C627Q 


o r> o 


710 FUN3I JI-FUN3I JJ +CPI J» 

PART 5 MORE WING GEOMETRY 

720 DO 750 J= 1* J 5 

FUN ( J )= SI GMA*FUN ( J I 

FUN K J) = 2.*SNALP*SNC*F UNO! J! 

FUNGI J1=SIGMA*FUN0(J1 
FUN41 J)=FUN4l JI-FUNOI J) 

IF ( IVOR.EQ.O.QR. J.LT. JW10-0R.J«GT .JW3I GO TO 740 
JG=J-JW10+3 

IF I J.GT.JCHCK) GO TO 730 

2 Vt. AMI JG1 **2>VT AUI J G 1**2 1 ^ ^ ^ T ^IG^**2* VT AU I JG) **2 )*2 • *HB*l VLAM I J 
FUN01J)-FUN0IJ1-SNALP*IHBP* vlam jg **5;^f^ii 21 iJ T ;; c j G} * F uNAiJ 

^isNA^*He*l:eImi^«2*VT^.«5G”. 2 »;<l--VT A UC J G..- 2 >*VTAU, JG ».eUN 

3B( J ) 

730 ADD 1=GAN* l 4 l»-VT AU( JG) I *VL AMP ( J6 )*VLAMC JGI*VT AUP ( JGJ l/(* l»-VTAUtJG 

1 1 )**2+VLAMl JG 1**2 1 
FUN4I J I-FUN4I j) +SNALP*ADD1 

FUNDI jI^FUNOC J t-SNALP* t ADD 1*GAN*ADD2*I VLAMP ( JG)~VLAM< JGI*ADD2*VTAU 

1PIJG11) 

740 FUNY1 J) ss -25*CS20*FUNl Jl 

FUN 81 Jl=FUN2I J 1*FUN3( J J *2« *AHINF**2 
FUN9(J1=0. 

FUN10U> = 0. _ 

IF I Y2 ( J 1 »LT « 1 * E~06 1 GO TO 750 

FUN9I J1=FUN2( J1/Y2I J)**4*2.*AMINF**2 

FUN 10 I J1-FUN91 J1*Y2 { J 1 *P IR 
FUN9I J)=-FUN9t J 1 

750 FUNXI Jl-FUNYI J1-. 5*SlGMA*FUN2l Jl 
CNNC=.125*SIGMA*CS20*DXR 
JW10PI=JW10+1 

^UN6(juioTi2.*CNNC*lFUNUWinPn-fUN(J«Lon-FtJNO(JW10l 

DO 760 J= JW10PL » JW3MI , . 

760 FUN6I J) =CNNC*I FUNI J*ll-F‘JNIJ“ 1 H -FUNGI J 1 


FUN6I JW3 ) =2 .*CNNC* ( FUN ( JW3 )-FUNt JW3MI ) JHFUNQ ( JW3 J 
FUN7I JW10) = DXR*(FUN6( JWL0Pl)-FUN6( JWIO) I 
DO 770 J=JW10P1 ,JW3Ml 
770 FUN 7< J • — • 5*DXR* (FUN6I J+l )— FUN6(J— 1 ) > 

FUN7( JW3 )=DXP*( FUN6I JW3 )-FUN6( JM3MI ) I 
C 

C PART 6 FAR— FI ELD MACH LINES 

C 

IF (AMINF.LE.l. I GO TO 850 
XWM=XWfM) 

X WMSQR-I • /XWM**2 
BET A*SQRT t-BET ASQ ) 

J2P 1= J2+ 1 
00 810 J =J2 Pi * J5 
KUP A ( J ) = 1 
DO 780 K=1 » KF 
Z=XWt J)-BETA*RW(KI 
IF (Z.LT.XW(J2)1 GO TO 790 
780 KUPA(JI=K 
790 KUPAt J)=KUPA(JI-1 

IF (J.LT.MI GO TO 810 
KLO At J) = l 
DO 800 K= 1 » KF 
Z-XWt J»-BETA*RW(KI 
IF tZ.LT.XWtMI l GO TO 810 
800 KLOAtJI=K 
810 CONTINUE 

DO 820 J= J2PI* J 5 
I GUNP 1=1 GUN t J I ♦I 
J Ml X* J 

IF tlGUNPl.LE.KUPAt Jl) GO TO 830 
820 CONTINUE 
830 00 840 J=M» J5 

IGUNPl=IGUNtJI+l 
J W3 X= J 

IF ( IGUNPl.LF.KLOAt J J ) GO TO 850 
840 CONTINUE 
C 

C PART 7 INITIALIZATION OF VELOCITY POTENTIAL 

C 

850 DO 1000 J*ltJ5 
I GUNJ=IGUN( J ) 
l GUNP 1=1 GUN J41 


C6720 

C 6 730 

C6750 

C6760 

C6770 

C6790 

C6800 

C68I0 

C6820 

C 68 30 

C6840 

C6850 

C6860 

C6870 

C6880 

C6890 

C6900 

C 69 10 

C6920 

C 6930 

C6940 

C6950 

C6960 

C6970 

C 6980 

C6990 

C7000 

C 70 1 0 

C7020 

C7030 

C 7040 

C 7050 

C706 0 

C7070 

C7080 

C 7090 

C7100 

C 7 1 10 

C7120 

C 7130 

C7140 

C 7150 

C 7160 


DO 860 K= 1 « IGUNJ 
860 PHI (;j,K»=0. 

IF IKF.NE.KMJ PHI(J#KM)=0. 

IF f AMINF.GT.l.) GO TO 900 
DO 890 K~ IGUNP1 »KF 
IF IJ.IT.JXNI GO TO 870 
IF IJ.GT.J3l GO TO 870 
AX=i. 

GO TO 380 
AX= ABS( XW( J I ) 

XOCR=AX/SQRT{ AX**2*8ETASQ*RW(K»**2I 

PHI I J»K)=RWR(K)*(X0CR*FUN3( J)*.5*(1.-XQCRI*FUN3( JW3li*X0CR**2*FUNX 

L C J) 

KUP A( J>=KM 
GO TO 1000 

IF { J.GT.JW1XI GO TO 910 
KLO = l GUNP 1 
GO TO 980 

IF (J.GT.JW3X* GO TO 920 
KOP-KUPA(J) 

KL0-IGUNP1 
GO TO 940 
KUP = KL0AI Jl 
X WJ — X W( Jl 
DO 930 K= IGUNP1 »KUP 
BRSQ=(BETA*RW(KI»**2 
ANUHL=SQRT ( XWJ**2-BRSQ» 

ANUM2=SQRT ( ABS ( I XU J-XWM l**2~BRSQ) I one „+ IA , 

930 PHI { J#K)=RWR<K)*FUN3(MI*XWMSQR*CXWJ*ANUM1-(XWJ+XWH)*ANUM2*8RS0*CAL 
10GI X*J-XRM+ANUM2>-AL0G(XWJ*ANUHU ) ) 

IF (KUP.EO.KF) GO TO 1000 

KLQ-KUP+l 

KUP-KUPAIJI 

940 Z=XW1J>-BETA*RW(KL0I 
J J—-1 

950 JJ=JJ+1 
JX= J-JJ 

IF (Z.LT.XWiJX)) GO TO 950 
DO 970 K-KLO t KUP 
BR=6ETA*RWIK) 

Z=XWU)-BR 

JJ=-1 

960 J J= JJ^l 


8 70 
880 
890 


900 


910 


920 


C7I70 
C 7 180 
C7190 
C 7200 
C7210 
C 7220 
C 7230 
C 7240 
C7250 
C 7260 
C7270 
C 7280 
C 7290 
C7300 
C73L0 
C 7320 
C7330 
C 7340 
C7350 
C 7360 
C7370 
C 738 0 
C 7390 
C 7400 
C7410 
C742 0 
C 7430 
C 7440 
C7450 
C7460 
C 7470 
C7480 
C7490 
C7500 
C 75 10 
C 75 20 
C7530 
C 7540 
C7550 
C 7560 
C7570 
C7580 
C 7590 
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JX= JX-J J C 7600 

IF (Z.LT.XWCJX) * GO TO 960 C7610 

ZR=1./Z C 7620 

970 PHI <J»K) = RWR(K)*FUN3IJX)*‘(XWIJ )*ZR **l.5*SQRT< XW< J1*BR)+IBR*ZR )**2* C7630 

1 ( ALQG (BR )-ALOG( XWC J) *SQRT( XW1J)**2-BR**2) I I H-FUNX ( JJ C7640 

IF (KUP.EQ.KFI GO TO 1000 C7650 

KLO=KUP+ I C7660 

980 DO 990 K=KLO,KF C7670 

990 PHI ( J»K ) =0 « C 7680 

1000 CONTINUE C7690 

C7700 

PART 8 TUNNEL WALL C7710 

C7720 

IF UWALL.EQ.O.OR.ALPHAD.EQ.O.I GO TO 1090 C7730 

IF ( I WALL • EQ»2 I GO TO 1070 C7740 

CARRY=0. C7750 

CARRYING. C 7760 

JWXZ=JWIO C 7770 

DO 1060 J=1,J5 C7780 

IF (J.LE.JW10I GO TO 1050 C7790 

IF (P.EU.O.) GO TO 1030 C7800 

IF (AMINF.LE.L.I GO TO 1010 C7810 

IF <KUPA( J) .LT.KM) GO TO 1040 C7820 

1010 IF (J.GT.JW3) GO TO 1020 C7830 

E XP1=EXP ( ( XWiJWXZI-XWl Jll/( P*RW<KM) )) C7840 

EXP 2= EXP1**2 C 7850 

E X P 2R - 1 • / E X P 2 C 7860 

EXP4R=EXP2RS ! *2 C7870 

EXP 1M=EXP( ( XWC JWXZ )-XW( J“1 ') } 71 P*RW< KM) I ) C7880 

EXP2MfEXP1M**2 C 7890 

EXP 2MR= 1 . / EXP2M C7900 

5XP4MR=EXP2MR**2 C7910 

G ARRY-C ARRY + -5 *( EXP2R+EXP2HR )*( FUN3I J) *EXP l— FUN3 ( J~l ) ♦EXPIM) C792 0 

C ARRYi=CARRYH-2«.*( EXP2R+EXP2MRIMFUNYI JI-FUNY I J-l > )-« 5*( EXP4R+EXP4 C79 30 
l MR )*<FUN8IJ|i*EXP2“FUN8lJ-l } *EXP2M ) /RW( KM I **Z *S IGM A*CS20 C 7940 

1020 FUN 11 ( J ) = — EXP 1/R W( KM) **2$C ARRY C7950 

FUN 12 ( J )=— EXP2/RW |KM)**2*CARRYl C 7960 

GO TO 1060 C7970 

1030 FUN1 1 (J)=FUN3(J)/RW(KMI**2 C 7980 

FUN 12 ( J ) = FUN8I J J/RWI KM ) **4 ! S<SI GMA*CS20 C7990 

GO TO 1060 C 8000 

1040 JWXZ=J C8010 

1050 FUN 11 101 = 0* C 8020 
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F UN 12 ( J ) -0. 

1060 CONTINUE 

GO TO 1090 

1070 ANUM0=I l.-P*RW(KM» »/( ( l .♦P*R«(KH I »*RW(KM»**21 

ANUM1=12.-P*RWIKM) I / ( RW ( KM )**4*l 2.+P*RWt KMJ ) )*SIGMA*CS20 
ANUM2=P/IRW4KM)*12.-P*RWIKM» >) *4. 

00 1080 J=1»J5 

FUN12lJJ=ANyMl*FUN8t J )-ANUM2*FUNY4 J) 

1080 FUNIK J)=FUN3t J1*ANUM0 

PART 9 INITIALIZATION OF VELOCITY POTENTIAL UNDER WING 

1090 IF (Irt.EQ.O) GO TO IliO 
K U= I F U w I J W 3 J 
JGU=JW3-JWlO+4 
00 1100 J»1 # JGU 
00 1100 K=1.KU 
1100 PHIUIJ»K)=0. 

PART 10 INDEXING OF WING TRAILING EDGE 

1110 IF IJW2.EQ.JW3I GO TO 1160 
JGP = JW2 0- JH 10+2 

00 1120 4 = 1 1 JGP 
1120 I FUMI J) =1 

JGP= JGP *-1 

JGU= J W3— J Wl 0+3 

DO 1150 JJ=JGP»JGU 

J=J W1Q+JJ— 3 

K=0 

1130 K= K ♦ 1 

IF (RWlKS.GT.YltJ) ) GO TO U40 
GO TO 1130 
1140 IFUMIJJ1 = K 

IF IfUEQ. IFUNI JW3) .AND* JJ.LY .JGUl IFUM(JJ)=K-l 
1150 CONTINUE 

1 F 1 1 FUMI JGU ) «GT . I FUN ( J ) I IFUMIJGU 1= I FUN I J I 
GO TO 1 180 

1160 JGU= JW3— J W10+3 
DO 1170 J-ltJGU 
1170 I FUMI J) = i 

1180 I FUMI JW3-JW 10*41= IF UNI JW3> : l 

C 


C 8030 
C 8040 
C8050 
C 8060 
C 8070 
C 80 8 0 
C 8090 
C 8100 
C8110 
C 8120 
C8130 
C8140 
C 61 50 
C 8160 
C8170 
C 81 80 
C8190 
C8200 
C 82 10 
C8220 
C8230 
C 8 240 
C 8250 
C8260 
C 82 70 
C8280 
C 8290 
C 8300 
C 8 3 1 0 
C8320 
C 8330 
C8340 
C8350 
C 8360 
C 83 7 0 
C 83 8 0 
C 83 90 
C8400 
C 8410 
C 8420 
C 8430 
C8440 
C 8450 
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PART 11 PRINTING 

PRINT 1230* ( K*RW< Kl *RWR IK I* AXOCRIK) * ^BARCK ) *K*1 * KF I 

PRINT 1240* ( K.CGNU Ki *C0N2( K) *C0N3 IKI »C0N7 IK I *C0N8 IKI*C0N9IK I* CON 

l pRINT t 125ol ( I J**XW< JNR1J) , SPRIME IJ I . Y2I Jl , Y1 1 J I * FUN3I J I .FUN2 1 J)*FU 

1 PRINT* 1260* ( J.XWC J) .FUN ( J I *FUN4I J ) »FUN1I JJ » FUN51 Jl »FUN6( J ) *FUN7 I J 

1 PR^ NT ^1270* ( J* XWt J) »FUNY( J) *FUNA( J I * FUWB I J I « IFUN I J I * S GUN! J I *KUPA( 
l JI.KtOAIJ I * J=1,JW10M11 
DO ! l 90 J=JW10,JW3Pl 

L190 PRI NT^1290» J ,XW I Jl . FUNY I J I . FUNAl J I , FUNBl J I . I FUNI J I * IGUNI J 1 .KUPA I J 
11 f KLQAI J ) * IFUMl JG 1 
JVJ3P2=JW3+2 

PRINT 1280* I J.XHI J) * FUNY I Jl *FUNAI J) »FUN8I Jl , I FUN ( J I * IGUNI Jl • KUPAI 
l J) *KLOA( Jl . J=JW3P2* J5) 

IF (JW10.EQ.JW3PU JW10=J3+1 

PRINT 1310, ( J,XW( J1.FUN8I J) ,FUN9( J ) *FUNLO( J I .FUN I l I J) *f UN12( Jl *V2 

1 P RM l J 1 » J= 1 » J 5 1 
IF (IVOR. 60.0) GO TO 1220 
PRINT 1320 
DO 1210 J=JW10* JW3 
JG=J-JWlO+3 

IF (J.GT.JCHCK1 GO TO 1200 
HB = Y2( J I «-R( J) **2/Y2l J) 

HBP= ( 1 .-(R ( J I / Y2 1 J I l**21*Y2PRR ( J 1 IR*SPRIME ( Jl /V2( Jl 

GAN=.5*HB*( VLAM1 JG1+VTAUI JGI**2/VL AMI JGII * utaiii ir » /ui 

DGAN0X*.5*(HBP*(VLAMl JGJ+VTAUI JGI**2/VLAM{ JG) 1+HB*(1.-IVTAUI JG1 /VL 

1 AMI JGI I **2) *VL AMPI JG) I +HB*VT AU( JG I /VLAM( JG I *VT AUP ( JGI 
OGANDX= OGANOX*FUN A ( J 1*&AN*FUNB( J I 
GAN=GAN*FUNA( J I 
GO TO 1210 

1210 PRIN? X 1330, J.XWt JI.VLAMI JG) * VTAUI JGI * VLAMPI JGI *VTAUPI JGI *GAN* DGAN 
1 DX*YV( JGI *2 V'l JGI* R( JI*Y2UI 

1220 IF 1 1 WING. GE. 01 GO TO 1222 
PRINT 1333 

DO 1221 J=JR10*JW3 

1221 PRINT 1334* J* XWC J 1 *FUNAtiI JG I *FUNBOI JGI *UUOD ( JGI * UU90DI JGI 




IF ( AMINF.GT .1. 1 GO TO 1222 
PRINT 1331 

PRINT 1332 , ( NA, CQEF( NA) *NA= 1 *NAMXPLI 
1222 PRINT 1340 « SIGMA, DELTA, BETASO, DXR, DXSOR, GAMP1 .GP IDXR * KHM1 , KFMl , KF 
1 , DEL ETA, P IR *C0N4* C0N5, H* JT , J I 

PRI NT 1350, JE,DX, JXN, SN0,CS20 , SNALP » I JW»JW10, JW20, JW1X, JW3X, BETA, 
l JW3 Ml ,DLT PH, JCHCK, IW, JW10M2 
PRINT 1360, JW3P1 *JW10MI , M, XWM,XWMSQR 
RETURN 


1230 FORMAT ( L7H SUBROUTINE START////44H ARRAYS AND PARAMETERS USED l 
IN COM PUT AT I0N/48H J = AXIAL GRID INDEX, K = RAOIAL GRID INDEX/ 

2//3X»lHK,5X,5HRJ( K) ,12X,6HRWR(K) ,9X,8HAX0CR ( K i ,9X ,7HABAR( K >// (14,4 
3E16.B)) 

1240 FORMAT (//3X,1HK,5X,7HC0N1(K) ,10X , 7HCON2 ( K I ,9X » 7HC0N3 f K ) , 10X, 7HC0N 
1 7 ( K ; ) , 8X , 7 HC0N8 ( K ) , 9X , 7HC0N9( K ) , 9X, 8HC0N 10{ K) ,9X, 8HC0NI i( Kl // ( 14, 8E 
216*8)) 

1250 FORMAT < / /3X , IHJ , 5X , 5HXW ( J ) , 12X, 4HR < J I »9X,9HSPR IME ( J) , 8X, 5HY2 ( J I ,t 
10X, 5HY1( J ) , 1 IX, 7HFUN3 ( J ) ,9X,7HFUN2 ( J) ,9X, 7HFUN0( J I ✓/ U 4 ,8E16. 8) i 
1260 FORMAT ( / / 3X , IHJ, 5 X, 5HXW ( J 1 , 12X, 6HFUNI J I ,9X, 7HFUN4( J) , l OX, 7HFUNI ( J 

1 ) , 1 1X,7HFUN51 J) ,9X , 7HFUN6I J) ,9X,7HFUN7( Jl ,9X,7HFUNX ( J )// < I4,8E16.8 

2 } ) 

1270 FORMAT ( / /3 X, IHJ , 5X , 5HXW ( J I , 11 X, 7HFUNYI J) ,9X ,7HFUNA( J I , LOX, 7HFUN8I 
1 J ) *9X »7H IFUN( J) , 2X » 7HIGUN1 J I »2X» 7HKUPAI J I »2X »7HKL0A ( J 1 » 2X» 8HI FUM I J 

2GI//( 14, 4E16. 8,4191) 

1280 FORMAT ( I 4, 4F16.8, 419) 

1290 FORMAT ( I4,4F16*8, 5 1 9 1 

1300 FORMAT ( //3X , 1H J , 5 X , 5HXW ( J ) , 1 IX , 7HFUN8 ( J ) ,9X , 7HFUN9 ( J 1 ,9X, 8HFUN10( 
1 J 1 , 10X, 8HFUN1K J ) , 8X, 8HFUN12 ( J 1 , 9X, 8HY2PRM( J 1 / ) 

1310 FORMAT (14,7616*81 

1320 FORMAT ( //3X, IHJ, 4X,5HXW( JI , 5X,8HVLAM( JGI * 3X , 8HVT AU( JGI ,2X,9HVLAMP 

1 ( JGI ,2X,9HVTAUP( JG I * 5X , 3HGAN ,6X,6HDGAN0X , 5X, 6HYV( JGI* 5X,6H2V< JGI ,6 

2 X , 4 HR I J ) . 6 X , 5 HY2 ( J I / ) 

1330 FORMAT <14,11611.3) 

1331 FORMAT ( //3X » 2HNA# 4X, 8HC0EF ( NA I / 1 

1333 FORMAT < //3X , IHJ ♦ 5X, 5HXW ( J i * 9X, 9HFUNA0< JG I , 7X .9HFUNB0C JGI , 9X, 8HUU0 
ID( JG) , 7X,9HUU90D< JGI/ I 

1334 FORMAT (14,5616.81 _ 

1340 FORMAT <//8H SIGMA =,E16.8//8H DELTA *,E16.8//9H BETASQ -,E16.8//7 

1H DXR * , E16* 8//8H OXSUR =,E16.8//8H GAMP1 = ,E16.8//9H GP1DXR =,E1 
26.8//7H KMM1 *,I5//7H KFMl =, I5//5H KF =, I5//9H DELETA =,E16.8//6H 

3 PIR = » El 6* 8//8H C0N4 = ,E16.8//7H CQN5 -,E16.8//4H H =,E16*8//5H 


C 8840 

C 8841 

C 8842 

C8843 

C 8850 

C8860 

C887 0 

C8880 

C 8890 

C 8900 

C 8910 

C8920 

C 8930 

C 8940 

C 8950 

C 8960 

C8970 

C 8980 

C 8990 

C9000 

C9010 

C9020 

C9030 

C9040 

C9050 

C9060 

C9070 

C9080 

C9090 

C9100 

C9I10 

C9120 

C9130 

C9140 

C9141 

C9L42 

C9143 

C 9144 

C9145 

C9150 

C9160 

C 91 70 

C 91 80 




4 JT = » I5//5H JI =*151 C9190 

1350 FORMAT C/9H JF **I5//9H DX =*E16.8//9H JXN =,I5//9H SNO C9200 

,L =*£I6*8//9H CS20 =»Ei6.8//9H SNALP =.E16.8//9H IJW *.15/ C9210 

2/9H JW10 ®* I 5//9H JW20 =*I5//9H JMLX *,I5//9H JW3X *.I5//9 C9220 

3H BETA =*E16.a//9H JW3M1 =,I5//9H OLTPH *,E16.8//9H JCHCK *.I C9230 

45//9H IW =. I5//9H JW10M2 =.1 5) C9240 

1360 FORMAT </9H JW3PL *,I5//9H JW10MI =,!5//9H M =,I5//9H XtfM C9250 

1 =* E16.8//9H XWMSQR =,E16.8I C9260 

END C9270- 
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SUBROUTINE MACH 

COMMON SIGMA* DELTA * I »BETASQ#DXR* 0XSQR»GAMPI*GP1DXR*KMM1 *KFMl 

1 ioo iSSU^ ?Sii‘.SS2iSS5 JtS 

rA^(S!JH^;“oor.rH?i^!^Mroo;.AXOC R .100U.CHKUOO,.PHtO L OUOO 

3 CoSSon* p2liot25l,OHeGAU(25I.ACHKUI25),8BARU(25I.C8ARU«251,DBARUI25 
3 COHMON^lFUMt 50(WLAMI 50.»VTAU(50)*VLAHPj50JfVTAUPC50)«W(50l»ZVi50 

l“FUNA0(50»,FUNB0t50l,UU0D(50),UU9O0(50) 

COMMON PH I ( 109,50) » 5( J ! 2 * p°f F ! o C0M , A #B# t WALL ,P ,CMEGAD • ALPH 

; ? 2—— e. 

DIMENSION ARA(I9,19>* ARBI21I* BRA(19*I , 

JX0C=JM10 

ZMACH=BETASQ 

MM=JW3 „ 

IF ( AMINE. GE.l. ) GO TO 210 


PART 1 


i AWRENCE AND FLAX APPROXIMATION 

FOR SUBSONIC FREE-STR6AM MACH NUMBERS 


XIC=XW( JW3) 

X IM XO=XLC— XQC 

X1MXOR=1./X1MXO 

GPI=0. 

NAM AX=20 


M 

0 

M 

10 

M 

20 

M 

30 

M 

40 

M 

50 

M 

60 

M 

70 

M 

80 

M 

90 

M 

100 

M 

110 

M 

120 

M 

130 

M 

140 

M 

150 

M 

160 

M 

170 

M 

180 

M 

190 

M 

200 

M 

210 

M 

220 

M 

230 

M 

231 

M 

232 

M 

240 

M 

250 

M 

260 

M 

270 

M 

280 

M 

290 

M 

300 

M 

310 

M 

320 

M 

321 

M 

322 

M 

330 

M 

350 

M 

360 

M 

370 

M 

380 



MAM AX=19 
ANAMX=NAMAX 
AMAMX=MAMAX 
ANAMXR=l«/ANAMX 

amamxr=i./amamx M4U . VAl 

N AMXM1=NAMAX-1 * MAMXM1=MAMA X- l $ NAMXP 1=NAMAX+1 
ATHAMX=AC0SlXlMXQR*(2.*XW{ jxoc)-xoc-xich 
athamx=athamx*anamx/( ANAMX-1 . i 
DO 10 NA=1 1 NAMXMl 


ANA=N A 

ATHETAt NA J-ATHAMX *ANA*ANAMXR 
10 AXW (NA) - .5*1 X1C+XGC+X1MX0*C0SI ATHETA( NA ) 

00 20 MA= 1 » MAMXM 1 

AMA=MA 

20 ATAU(MA)=PI*AMA*AMAMXR 
DO i 70 NA=1 fNAMXMl 
AX=AXW(NA)-XW( JW1 ) 

BX=AK2* ( AX-AX2 ) 

IF ( BX. L T» - 100- ) BX-~ 100. 

IF (BX.GT.100.I BX=100. 

IFI ABS(9X).LT.l*E-06l GO TO 30 



30 

40 


50 


$ IF (BX.GT.100. 
TO 60 


60 

70 


80 


90 


CX= EXP(-BX> 

xo=i./ii.-cx) 

AY2B(NA) = -B2*(AX-AX2»*XD 
GO TO 40 
AY2B(NA)=«B2/BX 
I F < IWING.EQ.-2I GO TO 50 

AY2B(NA)=A2*B2*AX*AY2B(NA 

GO TO 70 
BX=AK1* ( AX-AX1 ) 

IF (BX.LT.-10Q.) BX=-lQ0. 

IF {ABSIBXI.LT. l.E-061 GO 
CX=EXP(-BX) S XD= l ./( 1 .-CX) 

A Y2B(NA)= AY2B(NA) ♦ ( 82-B1 )*IAX^AX1I *XD*A1+B1*AX 

GO TO TO 

AV2B(NA) = AY2B(NA)+A1*B l* AX M B2-B1 ) /BX 

CONTINUE 

J=JW3 

DO 100 NA»ltNAMXMl 

IF (XW( J) .LT.AXWI NAJ ) GO TD 90 

J=J-1 

AR=R< + jmDXR*UXM(NAI-XW<J>> 


) BX=100. 


M 390 
M 400 
M 410 
M 420 
M 430 
M 440 
M 441 
M 442 
M 450 
M 460 
M 470 
M 480 
M 490 
M 500 
M 510 
M 520 
M 530 
M 540 
M 550 
M 560 
M 570 
M 580 
M 590 
M 600 
M 610 
M 620 
M 630 
M 640 
M 650 
M 660 
M 680 
M 690 
M 700 
M 710 
M 720 
M 730 
M 740 
M 750 
M 760 
M 770 
M 780 
M 790 
M 800 


100 AY 2 e<NA) = AY2BCNA)-AR**2/AY2B(NA) 

BETA= SORT (BET A SOI 

00 110 NA= 1 1 NAMXM1 

CST=COS(ATHETA(NAI ) 

BABR=2.*BETA*AY2B( NA )*X1MX0R 

BRA ( NA« l ) =( SORT ( (1 ,-CST J **2 ♦BABR**2 I-BABR) / C l.-CST I 
ARA (N A» HAMA X) = ( BABR-SQRT f ( X .+CST ) **2*BABR**2 » »/( l.«-C$T ) 

DO 110 MA=1» MAMXMi 
C ST U=CO S ( A f AU ( M A ) I 
ACKl=CSTU-CST * ACK2=.0i*6ABR 
IF (BABR.LT.i.E-08) GO TO 102 
IF ( ABS I ACK 1I.LT.ACK2) GO TO 101 
ARA(NA»MA)=( SORT { ACK1**2 +BABR**2 | — 9ABRI/ ACK 1 
GO TO 110 

101 ARA(NA,MA)=.5*ACK1/BA0R*( 1 . 25 * ( ACK 1/ BABR I **21 
GO TO 110 

102 ARA ( NA*MA )=1» 

IF CACK1.LT. 0.1 ARA(NA,HA»=-l. 

110 CONTINUE 

00 160 NA= l » NAMXM1 

00 130 LA=1 »NAMXPl 
ALA=LA 
SUM=0. 

DO 120 MA=1 f MAMXMI 

120 SUM=SUM*COS( ATAUC MA)*C ALA-l. 1 )*ARAC NA»MA> 

1 30 ARB CLA) = PI*AMAMXR*( .5* CBRACNA# 1 1 — € — L • I **LA*ARA(NAtMAMAX) )*SUMI 
AR8< 1)=2.*ATHETAINA)+ARB< 1 1-3 .♦PI 
DO 140 LA=2,NAMXPl 
ALA=L A 

140 ARB (L AI=2-*SIN( AL AM1*ATHET A( NAI ) *( 1 ./ALAM1+P I*8ET A* AY 2BCNA )*X IMXOR 
l/SINI ATHETACNA m+ARBCLA) 

00 150 LA=1 * NAMXML 
150 ARAINA,LA>=ARBtLA+2»-ARBCLAI 
160 BRA(NA,1)*3.*GPH-2.*PI*AY2BCNA>**2 
NL=NAMXMi 
NRHS= 1 

CALL SIMEQ ( ARA.NL .BRA.NRHS, DETERH, IPI V0T.NAMXM1 , ISCALE) 

IF (DETERM.NE.O.) GO TO 170 
STOP 201 

170 00 180 NA=1 tNAMXMl 

180 COEF(NA)-BRA(NA*ll 
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M 920 
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Ml 100 
Ml 110 

M 1 130 
M 1 1 40 
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o o o o 


CQEFINAMAX)=0. 

COEF( NAMAX+1 1 = 0. 

00 191 J= JXOC* JW3 
Y2B=Y2( JI-RI JJ**2/Y2< Jl 

8THETA=AC0S (XI MXOR*I 2 .*XVI ( J l-XOC-X 1C I » 

CPI ( J )'-GP I + (P I-8THETA )*COEF( 1 l-SI N( BTHETA )*COEF( 2 I 

00 190 N A=3 * NAMXP 1 
MAM 1=NA- 1 
ANAM1=M AM 1 

SlNT=SlN( ANAM1*8THETA) 

190 CPI ( J) = CP1< J l+( CQEF (NA-2 I— COEFCNA I l*SI NT/ANAM 1 
FUNA(J)=2.*PIR*CP1 ( J)/Y2B**2 

JG= J- JW 10+3 
FUNAOI JG)=FUNA( Jl 

191 CPI JJ=2.*P lR*CPil JI/Y2B 

CHK0=3.*(FUNA( J W 10+ 1 1 -FU NA< JW 10+2 1 I +FUNA< J W 10+ 31 
IF (FUNAI JW10) .LT.CHKO) GO TO 192 
FUN A( JW10 )=CHKO 
F UNAQI3 l=CHKO 

CP( JW10)=(Y2( JW10I-PI JW10)**2/Y2( Jk'lOl l*CHKO 
C PI ( JWiO) =CHKO*< Y2 ( J WlO l-RI JWlQI **2/Y2< JW10I )**2*^5*PI 

192 CP2 ( JXOC J=.5*DXR*(-3.*CP 1 ( JXOC 1 + 4. *CPl( JXOC + 1 l-CP 1( JXOC +2 1 1 
C P2 ( JW3 1 = 0 • 

00 200 J= JXOC » JW3 
JG- J - JW10+3 

FUNB( J)= • 5+DXR* (FUNA( J* l l-FUNAI J-i I I 
Y2B=Y2(J)-R< Jl**2/Y2( J J 

FUNBOt JG)=FUNB( Jl , 

IF < J. NE. JXOC. AND. J.NE.JW3I CP2( J ) = .5*DXB* < C P 1 ( J+ 1 J -CPU J-l 1 1 
Y2B0P=P1R*CP2( JI/Y2B 
UUOD( JGl-Y2B0P*SNALP 

200 UU90D<JGI=( U,-(K4 J1/Y21J) 1**2 >*Y2B0P+2«*P IR + SPR IMEtJI/Y2CJ))/C l. 

1 ( R ( J) /Y 2 ( J I I **2 I +SNAL P 

FUNBUW10 )=.5*DXR*( -3.*FUNA( JW 10 ) +4.+FUNA ( JW 10+1 |-FUNA( JWiO+2 I J 
FUNBt JW3)=. 5*0XR*( 3. *F UN A ( JW3 I -4.+FUNAI JW3*l ) +FUN A ( JW3-2 II 
FUN BO (3) = FUNBtJWlO I S FUNBOl JW3-JW 10 + 3)=FUNB( JW3I 
GO TO 390 

PART 2 CARAFOL I APPROXIMATION 

FOR SUPERSONIC FREE-S .REAM MACH NUMBERS 


210 BETA= SORT I -BETASQ I 
BBBP=BETA*B2 



IF (BBBP.GT.l.) RETURN 
CHC K=.5*DXR*HSPAN*6ETA 
IF (CHCK.GT.l.l GO TO 220 
JMC K= JW3 
GO TO 270 . 

220 JMCK= JXOC+1 
JX0CP2=JX0C+2 
DO 230 J= JXQCP2» JW3 

IF (Y2PRMI J).LT.Y2PRMU-*-m GO TO 230 
CHCK=Y2PRM( J)/B2 
IF (CHCK.LT..999I GO TO 240 
230 JMCK=J 

240 A X2 0= XW ( J W1 1 4-AX 2 

DO 250 J = J XCC » J W3 
IF (XW( J) .GT.AX20) GO TO 260 
250 MM= J 
260 JMP 1= MM'+l 

HSPNB=HSPAN-R( JMPl ) **2/HSPAN 

270 NAMAX-20 
ANAMX=NAMAX 
ANAMXR=1 • /ANAMX 
PHI 0 (NAMAX + 1 ) =0« 

NAMXP1=NAMAX+1 

DO 271 NA=1 »NAMAX 
ANA-NA 

271 PH10(NA)=$QRT( 1 •-( ( ANA-l • ) ♦ANAMXR >**21 
SUM=0 • 

DO 272 NA=1,NAMAX 

2 72 SUM=SUM+2 •*PIR*ANAMXR*(PHIO( NA )*PH 10 C NA*l ) ) 

DO 280 J= JW10» JMCK 
A RG 0= BE T A *Y 2 PRM ( J I 

IF (ARGO.LT.l.) ARG=l.~SQRT(l.-ARG0**2) 

IF < ARGO.GE.l. ) ARG= 1 . 

ANUM3=0. $ IF ( ARG.GT. 1.E-06I A NU M3 * A RG* AL 0 G < A RG ) 

EC*1. +.4630 151 *ARG+. 10778 12*ARG**2- (• 2452727+. 0412496* ARG»*ANUM3 
F UN A( J) = l • /EC 
JG= J-JW10+3 
FUNAOI JGI=SUM/EC 

FUN BO ( JG)=DXfi *( FUNAOI JG J—FUNAQC JG— 1 1 ) 

FUNA( JI=l./EC 

280 FUNB( J)=DXR*(FUNAI JI-FUNAI J-il I 
FUNB( JW10 ) = FUNB( J WiO+l ) 

FUNB0(3l=FUNBQ(4i 
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M 1 6 00 
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M 16 10 
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IF (JMCK.EQ.JW3 » GO TO 390 
JMCKPl= JMCK+1 

HSPNBP=Y2PRM( JMCKP1 )*( U + (R( JMCKP1I/Y2I JMCKP1)1**2)-PIR*SPRIME( JMC 

1KP1 )/Y2( JHCKP I ) 

XWOO=XW( JMCKP1)-{Y2I JMCKP1 )-R< JMCKP 1)**2/Y2( JMCKP1I I/HSPN8P 
ANUMi=W/< l. + BETA*HSPN8P) 

XUO-XWOO* (XWIJMCKPI l-XWOO l*ANUMI 
DO 290 J=JXOC » JMP1 
IF (XUQ.LT.XWI J ) ) GO TO 300 
290 JXUO=J 

300 00 380 J=JMCKP1,JW3 

Y2B=Y2 ( J ) -R I J l **2/Y2 ( J ) 

DVB = Y2B* ANAMXR 
YB=-DYB 

XUl=XWOU-MXW< J)-XW00)*ANUM1 
IF (J.LE. MM ) GO TO 310 
YUl-I XU1- XWQQ) *HSPNBP 
IF (YU1.LE .HSPNB ) GO TO 310 
X01 = XW( J1-BETA*HSPNB 
310 IF 1 XU1 .G E. XW( J XUO + l ) I JXU0=JXU0+1 
IF (XUl.GE.XWt JXU0+1J ) GO TO 310 
JXUi^JXUO 
JXU2= JXU1 
XU2-XU1 

00 36 0 NA= 1 »NAMXP 1 

YB= YB+OYB ’ 

IF (NA.EQ.l) GO TO 320 
XU1=XUI + BETA*0YB*ANUM1 
IF (J.LE* MM) GO TO 320 
YU1=( XUi-XWOO ) * HSPNB 
IF (YUl.LE.HSPNBI GO TO 320 
XU1 = XUH-BETA*DYB*( l.-ANUMU 
320 IF (XUUGE.XW( JXUl+ll) JXU1=JXU1*1 
IF (XUl.GE.XWI JXUl+in GO TO 320 
IF ( JXU1.LT.JW10) GO TO 321 
ABC 2" (XU1“XW( JXU1 ) I *DXR 
ABC l-l A0C2 

YUP = C R ( JXU 1 1 /Y2 ( JXUl ) S**2 >*Y2PRMC JXU1 1 — PI R*S PRIME C«tXUl ) /V21JXIJ 

1 YUP l- ( !• > ( R I JXUl* II / Y2 ( JXU1 + 1 * 1**2 »*V2PRMI JXUI^iI'-PIR*SPRIMEI 

1 H/Y2< jximn 

ALAM10=ABCl*YUP+ABC2*YUPi 

ALAM1=ABCI*Y2PRM( JXUl )+ABC2*Y2PRMI JXU1«-1» 


M 1670 
M1690 
Ml 700 
M 170 1 
M 1 7 1 0 
M1720 
M1730 
M 1740 
M1750 
M 1760 
M 1770 
M1810 
M 1820 
M1830 
M 1840 
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M1860 
M1870 
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M 189 1 
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M 20 16 
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YUB=Y2( JXU1)-R( JXU 11**2/ Y2CJXUI) 

YUBl=Y2( JXU l+l )—R(JXUl+l)**2/Y2( JXU 1*11 
YU€ i=ABCl*YUB+ABC2*YUBl 

321 IF (JXU1.LT. JMCKPl) YUC1=M XU1-XW00) *HSPNBP 
IF ( JXU1.LT. JMCKPl ) ALAM1G=HSPNBP 
IF { JXUl. LT. JMCKPl ) ALAM1= Y2PRM( JMCKP i ) 

AB1=YUC1+(XW(J)-XU1)*ALAM10 
IF (NA.EQ.l) GO TO 330 
XU2=XU2-BET A*0YB*ANUMl 
IF (J.LE. MM) GO TO 330 
YU2-( X02— XriOOl *HSPN BP 
IF (YU2.LE.HSPNB) GO TO 330 . 

XU2=XU2-BETA*DYB*( 1.-ANUM1 ) 

330 IF ( XU2.LT • XW( JX(J2 ) ) JXU2=JXU2~1 
IF (XU2.LT. XW( JXU2I ) GO TO 330 
IF ( JXU2.LT.JW10) GO TO 331 
ABC2=(XU2-XW( JXU2) l*DXR 

YUP = ( U + (R( JXU2J/Y21 JXU2 ) ) *42 ) 4Y2PRM ( JXU2 ) -P l R*S PRI ME ( JXU2I/Y2IJXU 
12 ) 

YUP l=(l , + (R( JXU2+1) /Y2( JXU2+1I )**2 ) *Y2PRM < JXU2+1 )— P IR*SPR I ME ( JXU2+ 

11 >/Y2(JXU2+U 
ALA M2Q= ABCl *YUP + ABC2*YUP 1 

ALAM2=A8Cl*Y2PRM( JXU2 ) +ABC2*Y2PRM( JXU2+1) 

YUB=Y2( JXU2)-R< JXU 2 ) **2/ Y2 ( J XU2 ) 

YUBl=Y2( JXU2+i)-R( J XU2+ 1 ) **2/Y2( JXU2+1I 
YUC2=ABCl*YU8+ABC2*YUBI 

331 IF (JX02.LT. JMCKPl) YUG2=( XU2-XW00) *HSPNBP 
IF (JXU2.LT. JMCKPl) AL AM20=HSPNBP 

IF (JXU2.LT. JMCKPl) ALAM2=Y2PRM< JMCKPl ) 

AB2=YUC2>(XW( J)-XU2)*ALAM2C 
IF (ALAM2.GT.1.E-06) GO TO 340 
CB1=AB1 * C B2= AB2 

GO TO 350 . 

340 DEL B=.5*( YUC1-ALA/ r0*XUl-YUC2+ALAM20*XU2+< AL AMIO-AL AM2C ) *XU ( J ) ) 

CB1 = ABI -OELB $ CB2=AB2 + DELB 
350 ANUM2=SQRT(2.*CB1/(CB1+CB2)) 

ARG0=.5*BETA*< ALAM1+AL AM 2) 

IF (ARGO.LT.l.) ARG= l..— SORT ( 1 •— ARG0**2) 

IF (ARGO.GF.l.) ARG= l- 

ANUM3=0. $ IF (ARG.GT.l.E-06) ANUM3* ARG*ALOG( ARG) 

EC= L.+. 4630 151* ARG + . 10778 12* ARG** 2- ( . 2452727+ .041 2496* ARG) *ANUM3 
IF <NA. EQ.NAMXP1) GO TO 361 
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IF (NA.EQ.ll SAVC=ANUM2/EC*SQRT( AB1*AB2+4,*RIJ)**2» 

IF CNA.EQ.l.AND. J.EQ.JMCKPU SAVA= ( XWC JMCKI-XWOO) *HSPNBP/EC 
IF (NA.EQ.1.AND.J.EQ.JMCKP1) SAVB= SQRT( SA VA**2+4. *C R< JMCKI /EC 1**21 

360 PHI 0( NA) =ANUM2 /EC*SQRT(I ABI—YBI* C AB2»Y BM 

361 FUNA(J)=SQRT((AB1+A82)/ABI*CB1/(CB1+CB2I)/EC 
SUM=0. 

00 370 NA= LtNAMAX 

3 70 SUM=SUM»DY B* ( PH 10 { N A )+PH IOCNA+ll ) 

JG=J-JW10+3 

FUN A0(JGI=2-*SUM/( PI*Y2B**2) 

FUN801 JG) =OXR* (FUNAO(JG)-FUNAO(JG-l » I 
UUODC JG)=OXR*( PH IOC I)— SAVA)*SNALP 
UU9 0DC JGl=DXR*<SAVC- SAVB)*SNALP 
S AV A=PHIO 1 1 ) S SAVB=SAVC 
380 FUNBC J)=DXK*<FUNA( J»-FUNA(J-l)l 
C 

C PART 3 CORRECTION OF FUNCTIONS 
C 

390 DO 420 J=JWI0,JW3 
JG= J- JW10+3 

IF (J.GT.JW10I GO TO 400 
FUNBP=DXR* ( FUN BO (4 )— FUNB0C3 I I 
GO TO 410 

400 FUNBP=DXR*f FUNBOC JGI-FUNBOC JG-I ) ) 

410 F UNOC J) =FUN AO ( JG ) *FUNO< J J+FUNBOC JG ) *FUN2C J >♦. 5*FUNBP*FUN3 C J ) 

FUN2C JI^FUNAOC JG)*FUN2CJ)*FUNB0(JG) *FUN3l J I 
FUN3C J)=FUNAO( JG)*FUN3(J> 

FUN ( J l = GAMP l*FUN2C J) +FUNOC J ) 

420 F UN4( J)=FUNAO( JG I *FUN4 < J ) ♦CNX*FUWBC CJG)*Y2 C J ) *SN ALP 
RETURN 
END 
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SUBROUTINE SIMEQIA,N, B,M, DETERM, IPIVOT,NMAX, ISCALE) F4. I 1 
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c 


SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 

F4. 1 

3 

c 



F4.1 

4 



DIMENSION I P I VOT (NI,AINMAX»N),B( NMAX»M) 

F4.1 

5 



EQUIVALENCE ( (ROW, JROW) , ( I COLUM, JCOLUM) . < AMAX *T, SWAP) 

F4.1 

6 

c 



F4.1 

7 

c 


INI TIALIZATION 

F4. 1 

8 

c 



F4. 1 

9 


5 

I SCAL E=0 

F4.1 

10 


6 

R 1- 10.0**100 

F4. 1 

11 


7 

R2=l « O/Rl 

F4. 1 

12 


10 

DETER M=1.0 

F4.1 

13 


)L5 

*0 20 J=1,N 

F4. 1 

14 


20 

iPI VOT( J I =0 

F4. 1 

15 


30 

DO 550 1 = 1, N 

F4. 1 

16 

c 



F4. 1 

17 

c 


SEARCH FOR PIVOT ELEMENT 

F4.1 

18 

c 



F4« 1 

19 


40 

AM A X= 0.0 

F4. 1 

20 


45 

DO 105 J=1 » N 

F4. 1 

21 


50 

IF I IPIVOTt J)-l) 60,105,60 

F4. 1 

22 


60 

DO 100 K= 1, N 

F4. 1 

23 


70 

IF ( IPI VOT(K)-l) 80,100,740 

F4.1 

24 


80 

IF (ABS(AMAX)-A0S(A(J,K) )) 05,100,100 

F4. 1 

25 


85 

I RO W- J 

F4. 1 

26 


90 

I COLUM=K 

F4. 1 

27 


95 

AMAX=AI J,K) 

F4. 1 

28 


100 

CONTINUE 

F4.1 

29 


105 

CONTINUE 

F4. 1 

30 



IF CAMAX) 110,106,110 

F4. 1 

3 i 


106 

DETERM=0.0 

F4.1 

32 



I SC ALE=0 

F 4. 1 

33 



GO TO 740 

F4. 1 

34 


110 

IPI VOT ( ICOLUM ) -IP I VOT I ICOLUM I + 1 

F4. 1 

35 

c 



F4.1 

36 

c 


INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

F4. 1 

37 

c 



F4.1 

38 


130 

IF I IROW-ICOLUM) 140,260,140 

F4. 1 

39 


140 

DETERM=-DETERM 

F4. I 

40 


150 

DO 200 L= i, N 

F4. 1 

41 


160 

SWA P=A( IROW.L) 

F4. 1 

42 



rt o o 


L70 At I ROW,L)=AI ICOLUM.L) 

200 A ( I CQLUM ,LI=SWAP 
205 IF IM) 260.260*210 
210 DO 250 L=1,M 
220 SWAP=B( IROW.L) 

230 B ( I ROW* L I -B 1 I C0LUM »L ) 

250 BtIC0LUM.U = SWAP 
260 P I V0T=A( IC0LUM* ICQLUM) 

IF I PIVOT I 1000. 106, 1000 

SCALE THE DETERMINANT 

1000 P IV0TI=PI VOT 

1005 IFI ABSI DETERM I -R1 11030.1010. 1010 
1010 DETERM=DE TERM/ HI 
ISCAL E= ISCALE+l 

IFI ABS( DETERM) -R1 1 1060.1020,1020 
1020 DETERM=DETERM/R 1 
I SC ALE= ISCALF+l 
GO TO 1060 

1030 IFI ABSI DETERM1-R2I 1040, 1040, 1060 
1040 0£FERM=DETERM*R1 
iSCAL E= ISCALE-1 

IFI ABSI DETERM)-R2) 1050,1050, 1060 
1050 DETERM=DETERM*Rl 
I SC ALE=ISCALE-l 

1060 IFI ABSI PI VOTD-R1) 1090,1070, 1070 
1070 PIVOT l = PIVQTl/Rl 
I SCAL E=ISCALE + i 

I F I AB SI P I VOT I) -R1 ) 320 . 1080 , 1 080 
1080 PIVOTI = PI V0TI/R1 
I SC ALE= l SCALE* l 
GO TO 320 

1090 I FI ABSI P I VOT I )~R2 ) 2000,2000, 320 
2000 PIV0T1=PI VQTI*R1 
I SCAL E= ISCALE-1 

IFI ABSI PI VOT I )-R2) 20 10*2010*320 
2010 PIV0TI=PIV0TI*R1 
I SC ALE^ ISCALE— 1 
320 DETERM=DETERM^PI VOT I 
C 

c DIVIDE PIVOT ROW BY PIVOT ELEMENT 
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71 

F4* 1 

72 

F4.1 

73 

F4. 1 

74 

F4. 1 

75 

F4. 1 

76 

F4. 1 

77 

F4. 1 

78 

F4. 1 

79 

F4. 1 

80 

F4. 1 

81 

F4.1 

82 

F4. 1 

83 

F4.1 

84 

F4. 1 

85 
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3*0 00 35 L L=1,N 

3*1 IF C IPl VOTILl-l) 350,351,7*0 

350 A ( I C0LUM.L) -A( ICOLUM.L) /PI VOT 

351 CONTINUE 

355 IF (MI 380.380,360 
360 00 370 L=l,M 

370 8( ICQLUM.LI =B( ICOLUM.L) /PI VOT 

REDUCE NON-PIVOT ROWS 

380 DO 550 LI *1 * N 

390 IF (Ll-ICOLUMI *00.550.*00 

*00 T=A(L1 , ICOLUMI 

*30 DO *51 L- i , N 

*31 IF UPIVOTIL»-il *50, *51, 7*0 

*50 A<Ll.L)=A(Li,LI-A( ICOLUM.L )*T 

*51 CONTINUE 

*55 IF (MI 550,550, *60 

*60 DO 500 1=1, M 

500 B I L l, LI-8 I'LL . LI — B( ICOLUM,L)*T 
550 CONTINUE 
7*0 RETURN 
END 


F*. 1 86' 

F*. I 87 
F*-l 88 
F*. 1 89 

F*. I 90 
F*. 1 91 

F*.l 92 
F*.l 93 
F*. i 9* 
F*.l 95 
F*. I 96 
F*» 1 97 

F*. I 98 
F*.l 99 
F4.1 100 
F*. 1 101 
F*. I 102 
F*. 1 103 
F*. 1 10* 
F*. 1 105 
F*.l 106 
F*. 1 107 
F*.l 10 8 


OVERLAY {DICK, 1,2) 0 0 

PROGRAM WORK 0 10 

COMMON SIGMA, DELTA# I , BETAS C, DXR, DXSQR.GAMP1 , GPiDX R,KMM 1 ,KFH1 , KF, DE D 20 
1LETA,PIR,CON4,CON5,H, JT, JI , JF, DPHI MX.DX, JXN, SN0.CS20, SNALP, I J M* JWl 0 30 

2G«J M2 C,JWIX, J W3X, BETA, J M3 Ml, DLT PH, JCHCK ,IW,JW10M2,JW3P1,JWLCM1«M,X D 40 
3WM, XWMSQR « P I, AK2, AX2 « AK1 , AXl , AX LO ,CNX* NAMXP1 , A1 , A2 , ZMACH, JMCK 0 50 

COMMON R(120) ,SPRIME(120), FUN I 120 ) , XW I 120 ) , Y l ( 120 ) , Y2( 120) » FUNK 12 0 60 

10), FUNO (120)»IFUN{ 120) ,FUN2( 120) ,FUN3( 120 ) ,FUN4( 120 ) , I GUN( 120 ) , C P( 0 70 

2l20),FUNX(l20),SLAS(120,6),CPOU20).KL0A( L20),KUPA( 120),FUN5< 120), D 80 
3FUN6I 120) ,FUN7( 120) ,FUNY(120) .CPU 120) ,CP2I120) D 90 

COMMON FUN8(120),FUN9(120),FUN10(120),FUN11( 1201 , Y2PRMI 120 ), FUN12C D 100 

1 120 ) ,FUNAI 120) ,FUNB< 120) D 110 

COMMON C0N7C100) , CON8UOO ) ,C0N9( 100) ,C0N10( 100) ,CCN11( 100) ,C0N1( 10 D 120 
10) , C0N21 100) ,C0N3< 100) , OMEGA ( 100 ) , A8AR 1 100 ) , BBAR ( 100) ,CBAR( 100), DB 0 130 
2ARI 100),PHIO(100),RW(100),RWR( 1001 ,AXOCRl 100) , ACHKI 100) .PHIOLOUOO D 140 
3 1 » 8CHK( 100) 0 150 

COMMON PHiU0I25),0MEGAU(25)f ACHKUI25) , BBARUI 25 ) , CE ARU125 ) , DBARU ( 25 D 160 
1 ) ,BCHKU<25) ,PHI0J(25> D 170 

COMMON IFUMI50), VLAMI50), VTAUI503 t VLAMP(50) , VTAUP ( 50 ) , YVI5Q) * ZV ( 50 0 180 

1 ) ,FUNA0(50) ,FUNBO(50),UUOO(50),UU900(50) D 190 

COMMON PHK 109,50) ,PHIU(50, 25) v COEF421) D 200 

COMMON /NMLIST/ J 1 , J2, J3, J4, J5, FAC, KM, RCOM , A, B, I WALL,P ,CMEGAD , ALPH 0 210 

1AD,HSPAN,AM1NF,GAMMA, I R , RC ,RMAX , RN, JS,RS, JWl, JW2.JW3, JWO, IWING,0l, 0 220 
262, 0EL1, DEL, IVOR, IOIR,EPSI ,$UB*SUP , IMAX, SFACTOR 0 230 

PRINT 810 D 240 

PRINT 820 D 250 

PRINT 830 D 260 

PRINT 840 D 270 

SUPP=1. D 280 

10 I^T+l 0 290 

JIM 1 = J I— 1 D 300 

DO 20 K=1,KF 0 310 

PHX0LD(K)=PHI(JIM1,K) D 320 

20 ACHKI K) = BET ASO D 330 

DPHIMX=0. 0 340 

DO 780 J= J l , JF D 350 

JPi=J+l 0 360 

JMl^J-l 0 370 

JM2=J-2 0 380 

JM3=J-3 D 390 

JG= J- JWl 0+3 0 400 

IF (J.LT.J1) GO TO 290 0 410 
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IF (J.GT.J41 GO TO 290 

PART 1 PRIMARY 8 AND D ARRAYS IN INNER REGION 


IFUNJ=IFUN( Jl 

IFNJP1=IFUNJH 

KGUN=IGUN( J 1 

KGUNP L=KGUN + 1 

KL0=1 

KUP=KGUN-1 

PHIM1=PHI(JM1,1) 

PHI M10=PHI0LD( 1) 

30 DO 120 K=KLO,KUP 

IF (K.LE.IFUNJ) GO TO AO 
U=FUN2(J)*RWR(KI*FUN6( J» 

I wo=o 

IF UW.EU.i.AND.K.LE.IFUNt JP11) IWO*l 
GO TO 50 
40 U*FUN4( J 1 


50 


60 

70 


80 


ALAMB=BETA$Q-. 5*GPIDXR*I PHU JPl *K) -PHI M10 l-G AMPi*U 

IF IIW0.EQ*1 ) AL AM B* AL AM B* • 2 5*GP ID XR* I PH 1 1 JP 1 , K 1 - PHI U« JG* l * K) I 

IF t ALAMB*LT«0« I GO TO 80 

GMEGAIKl-SUB 

ACHECK=ACHKIK) 

ACHK(K» = ALAMB 

BCHk(K)=ACHK(Kl-ZMACH 

BBAR(K)=-2.*DXS0R*ALAMB 

I F^( I WO«EO« i?*OBAR^ K)»0BARIK 1+!»5*ALAMB*DXSQRP (PH IU( JG+1* Kl“PH I ( JPl 
. f KJ I 

IF (ACHECK.GT.0.1 GO TO HO 
IF IfGUNI JM2) .LT.Ki GO TO 60 
PHI M2=PHI ( JM2 « XI 

PHI M2-PHI ( J M2 t K I-RWR (XI*FUN3 C JM2 I-FUNXIJM2 ) 
flBARl K) = BBAR t KHACHECKPDXSQR 

0BAR(K)=DBAR(K)^ACHECK*0XSQR*C-2.*PHIMHPHIM2) 

BCHK( KI = BCHK (K ) ♦ACHECK-ZMACH 
OMEGA ( K )= 1 • 

GO TO IIO 
OMEGACK 1= 1. 

IF ( IGUNi JM2 ) .LT.KI GO TO 90 


D 420 
0 430 
0 440 
D 450 
0 460 
D 470 
D 480 
D 490 
D 500 
D 510 
D 520 
D 530 
D 540 
D 550 
D 560 
D 570 
D 500 
D 590 
D 600 
D 610 
0 620 
D 630 
D 640 
0 650 
0 660 
D 670 
D 680 
D 690 
D 700 
D 710 
D 720 
0 730 
D 740 
D 750 
D 760 
0 770 
0 780 
0 790 
D 780 
D 810 
D 820 
D 830 
0 840 
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PHIM2=PHl< JM2,K ) D 850 

GO TO LOO D 860 

90 PHIM2=PHI |JM2,KI-Rttfi<K)*FUN3( JM2I-FUNXI JM2I D 870 

100 SAVE= ALAMB D 880 

ALAMB=BETASQ-GP1DXR*IPHI ( J.K)-PHIMIG|-GAMP1*U 0 890 

IF (AtAMB.GT.O. I ALAMB=0. 0 900 

IF (ACHKl KI.GT.O.) OMEGA I K )=SUPP 0 910 

ACHK( K)=S AVE 0 920 

BCHKI K) =ALAMB-ZMACH 0 930 

B6ARI KI = DXSQR*ALAMB D 960 

DBAR(K> = DXSQR*ALAMB*(-2.*PHIML-H*HIM2I D 950 

110 PHIM1=PHI(JM1»K>1) 0 960 

PHIM10=PHI0LDI K-H I D 970 

IF (IGUNl JM1I.6T.KI GO TO 120 0 980 

PHI Ml =PH I Ml-RWR I M- II *FUN3I JM 1 l—FUNXI JM1 ) D 990 

PHIM10=PHIM10-RWR(K+1I*FUN3( JM1I-FUNXI JM1 I 01000 

120 CONTINUE D1010 

IF (KLO.NE.l) GO TO 130 01020 

KLQ=KGUN D1030 

KUP=KGUN D 1060 

GO TO 30 D1050 

130 IF (IW.EQ.OI GO TO 210 D1060 

010 TO 

PART 2 B AND 0 ARRAYS BENEATH WING 01080 

D 1090 

IF IJ.LT.JW10.0R. J.GT.JW3I GO TO 190 01100 

I FUMJ= IFUMC JG ) OHIO 

JGM 1= JG— 1 01120 

JGP1=JG+1 01130 

JGM 2= JG— 2 D1160 

I FN JP2= IFUN! J+2 1 01150 

IF (JoGT.JWlOl GO TO 150 D1160 

00 160 K=IFUMJ, IFNJP2 D1170 

PHIUU.KI=PHI( JW10M2.KI 01180 

160 PHIU(2»KI*PHI( J W10M1* K I 01190 

GO TO 161 01200 

150 IFNOl=IFUN( JM1I+1 01210 

IFN02=IFUN{ JP1I - 01220 

00 160 K= IFN01 t IF NO 2 D1221 

160 PHIUI JGM1 » K l = PH I C JM1 » Kl 01222 

161 U--FUN4I Jl-2.*FUN0( J) 01223 

DO 180 K= FFUMJ, IFUNJ 01230 

ALAMBU=BETAS0-.5*GP1DXR*< PHIUI JGP1 .K 1-PHIU0I Kl I~GAMP1.*U 0 1260 
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IF ( AlAMBU.LT.O.) GO TO 170 
OMEGAU(K) =SUB 
ACHECK=ACHKU(K) 

ACHKU(KI=ALAMBU 

BCHKU (K|= ALAMBU-ZMACH 

BBAftU(K)=-2.*DXSQR*ALAMBU 

OBARU<K) = ALAMBU*DXSQR*(PHIU( JGPl»KHPHIU( JGM1*K» I 
IF (ACHECK.GT.O. 1 GO TO 180 

BBARU (K) = BBARU (K ) ♦ACHECK*DXSQR . . „ 

DBARU(K)=DBARU(Kl*ACHECK*0XSQR*I-2.*PHIU(JGMi.KH-PHIUIJGM2,K 

BCHKU (K ) = AL AMBU+ACHECK-2 • *ZM ACH 
QMEGAUI K ) =1 . 

GO TD ISO 
170 0MEGAU(K) = 1. 

SAVE=ALAMBU 

ALAMBU=BETASO-GP10XR*(PHIU<JG.KI-PHIUOIKI )-GAMPl*U 

IF (ALAHBU. GT.0.1 ALAMBU=0. 

IF (ACHKUiKKGT.O. I OMEGAU<KI=SUPP 

ACHKU ( K1 = S AVF 

BCHKUI K)= ALA MBU-Z MACH 

180 CONTINUE 

190 IF ( J.NE. JWiOMi) GO TO 210 
KUO=IFUN( JWIO+U 
DO 200 K— I * KUO 
ACH KU ( K ) " AC HK ( K I 
BCHKU (K)sBCHKCK) 

200 PHiUOCK)-PHl( JWIOMI ,KJ 


PART 


B AND D ARRAYS IN OUTER REGION 


j in ic { I GUM( JP I 1 • LT.KGUNP 1 I GO TO 220 

PHIPI-PHII JP1,KGUNP1I*RWR CKGUNPU*FUN3I4P1 KFUNXI JP1) 

GO TO 230 

220 PHIP1=PHI ( JPlfKGUNPl* 

230 DO 260 K=KGUNPI*KMM1 

ALAMB=BETASQ-.5*GP1DXR*IPHIPI-PHI0LDCKI1 

IF ( ALAMB.LT. 0.) GO TO 240 
OMEGAIK ) = SUB 
ACHECK=ACHK(KI 


ACHKI K) = ALAMB 
BBAR(K)=-2.*DXSQR*ALAMB 


D 1250 
D 1260 
D 1270 
0 1280 
D 1290 
01300 
01310 
01320 
D1330 
D 1340 
01350 
D 1360 
D1370 
D 1380 
D 1390 
01400 
01410 
01420 
0 1430 
01440 
D 1450 
01460 
01470 
01480 
01490 
0 1500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
D1600 
D 1610 
01620 
01630 
D 1640 
01650 
0 1660 
01680 
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0BARIK)=ALAMB*DXSQR*(PHIP1+PHI( JHi,K>) 

IF (ACHECK.GT.O.) GO TO 250 
BBAR(KI=BBAR(KI ♦ACHECK*OXSOR 

DBAR(K) = DBAR(K)+ACHECK*0XSQR*(-'2.*PHI( JM1* K)*PHI ( JM2.K) ) 
OMEGA (K) =1 • 

GO TO 250 
240 OMEGA(K)=i. 

SAVE=ALAMB 

ALAM0=B6TASQ-GP1OXR*(PHI( J»K)-PHIOLDIKJ I 

IF (ALAMB.GT.O.) ALAMB=0. 

IF (ACHK(K).GT.O.I OMFGAIK )=SUPP 

ACHK(K)=SAVE 

BBAR(K) = DXSQR* ALAMB 

OBARI K)=DXSQR*ALAMB*(-2 .*PHI(JMltK) +PHI I JM2i K ) i 
250 PHIPl=PHI I JP1.K+1 ) 

IF ( (GUNI JP1) .LE.K) GO TO 260 
PHIP1=PHIP1«-RWR( K+ll*FUN3( JPU+FUNXI JP1I 
260 CONTINUE 

PART 4 B AND D ARRAYS AT OUTER WALL 
IF UWALL.EQ.OI GO TO 280 

ALAMB=BETASQ-.5*GP10XR*I PH IPl-PH IOLO I KM ) ) 

IF ( ALAMB. LT. 0.1 GO TO 270 
OMEGA(KM)=SUB 
ACHECK=ACHKj[KM ) 

ACHK( KM )= ALAMB 

BBARl KM)=— 2.*DXSQR*ALAMB 

OBAR (KM ALAMB*OXSQR*IPHIP l^PH I ( JM1 *KM) I 

IF (ACHECK.GT.O. ) GO TO 2 80 
B0AR( KM I-BBAR ( KM I +ACHECK*DXSQR 

DBAR(KM) = OBAR(KM) ♦ ACHECK^DXSQRM -2 • ♦PHHJM1»KM)*PHII JM2»KM1 1 
OMEGA (KM)— 1. 

GO TO 280 
270 OMEGA(KM)=l. 

S AV E- ALAMB 

ALAMB=BETASQ-GPIDXR*( PHI ( J # KM) -PHIOLG (KM ) ) 

IF (ALAMB.GT.O.) ALAMB-O. 

IF (ACHK( KMI.GT.O. ) OMEGA! KM)*SUPP 
ACHK( KM)— SAVE 

BBAR(KM) = DXSQR*ALAMB ,, 

0BAR(KM) = 0XSQR< , ALAMB*(-2.*PHI( JMltKM) +PHK JM2*KMl I 

280 0X23=2. *DX 


D 1690 
01700 
01710 
01720 
01740 
D1750 
01760 
01770 
01780 
01790 
D 1800 
D 18 10 
D1830 
D 1840 
D1850 
D 1860 
01870 
D I860 
01890 
D 1900 
D 19 10 
01920 
01930 
01940 
01950 
01960 
01970 
01990 
02000 
02010 
02020 
02030 
02050 
D2060 
D2070 
02080 
02090 
02100 
02110 
02120 
D2140 
02150 
02160 
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DX12=2.*DX D2170 

DX2=0X D2180 

GO TO 340 D2190 

02200 

PART 5 8 AND D ARRAYS IN X-STRETCHED REGION 02210 

02220 

290 DX2 = XW{ J)-XWt JMi) D2230 

IF (J.E0.J5) GO TO 300 02240 

0X3=XN( JPU-XWt J> 02250 

0X23=0X2+0X3 02260 

DDD23R=i./( 0X2*DX3*DX231 02270 

023=DD023R*GAMP1 02280 

300 IF CJ.EQ.2I GO TO 310 02290 

0X1=XW( JMU-XWt JM2I 02300 

0X1 2= DXI+DX2 D 23 10 

0D012R=l./( 0X1*0X2*0X121 02320 

012=00012R*GAMPI 02330 

310 00 330 K=l,KF D2340 

ALAMB=BETASQ-D23*(DX2**2*PHI( JPl ,KI MDX3-DX2 1 *DX23*PHI ( J,KI-DX3**2 D2350 

1* PH I OLD ( K 1 ) D2360 

ACHECK=ACHK(K ) 02361 

ACHKI K)=ALAMB D2370 

BCHKt K)=ALAMB-ZMACH 02380 

IF ( ALAMB.LT.O ..AN0.J.NE.2I GO TO 320 D2390 

OMEGA ( K )=SUB 02400 

8BAR(K)=-2.*DX23*DDD23R*ALAMB 02410 

DBARI K)=2.*DD023R*ALAMB*(DX2*PHI ( JP1, K»+DX3*PHH JMl,K )) D2420 

IF {ACHECK.GT.0..0R.J.EQ.2) GO TO 330 02421 

BBAR (X.) =BBAR(K) +2.*D0012R*0Xl*ACHECK 02422 

DBAR(K)=DBAR(K) +2 . *DDD 12R * 1- OX 12*PHI t JM1 * K » +DX2*PHI ( JM2 .K) )*ACHECK 02423 
BCHKI K1=BCHK(KJ +ACHECK-ZMACH 02424 

OMEGA (K ) » 1. D2425 

GO TO 330 024 30 

320 OMEGAtK J = l. 02440 

AL AM8= BET AS Q- 012*0X1 *DX12*(PHI(J , Kl— PHIOLDI K) I 02441 

IF { ALAMB.GT.O. ) ALAMB=0 ■ 02442 

IF ( ACHECK.GT .0. ) OMEGA t K ) = SUPP 02443 

BCHK t K) =ALAMB— ZMACH D2444 

BBAR ( K )=2. *0001 2R*DX 1*AL AMB 02450 

DBAR(K)=2.*D0012R*(-DX12*PHI ( JMI ,K ) *DX2*P HI ( JM2.K ) I *ALAMB 02451 

330 CONTINUE 02470 

02480 

PART 6 C ARRAY, FINAL PREPARATION OF B ARRAY 02490 
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C 


c 

c 

c 


340 DO 350 K= i » KF 

BBAR (Kl --2 • *CQN2 ( K)*BBAR(K) 

350 CBAR( K)=l •♦CONIC Kl 

PART 7 FINAL PREPARATION OF PRIMARY 0 ARRAY IN INNER REGION 


KGUN= IGUN ( J I 

DO 370 K= 1 » KG UN 

IF (K.LE. IFUNC Jl I GO TO 360 

DBARI K) - -BCHKC K I *( C0N3C K ) *RW f K I *FUNi ( JI+C0N2 ( K )*FUN7 C J ) )-C0N2(KI*D 
I BAR(KH-CCN7(KI*FUN8( J ) ♦4.*C0N3( K l*FUNYi J I 

360 D8AMK)=-CaN2(Kl*CBCHK(K»*FUN5(J)«-DBAR(KII*C0N8CK)*FUN9(JI*C0N9CK» 

1*FUN10( Jl 
370 CONTINUE 

IF ( I W.NE.Q .OR. ALPHAO. EQ.G - 3 GO TO 390 
IF (J.LT.JW10I GO TO 390 

IF { I WALL • EQ.O .OR .KUPAC J) • LT.KM) GO TO 390 
DO 380 K~ IFNJPi »KGUN 
380 D BAR ( K) = OBAR( K I -C ON 10 ( K I ♦FUN 1 1 ( J I 
390 DBARC 1 l=DBAR( 1 1 +C0N4*SPRI MEI J I 

DBARl KGUN^DB ARC KGUN1 «-CBARCKGUNJ*CRWR( KGUNP1 1 *FUN3C J S+FUNXC J I I 

PART 8 C ARRAY BENEATH WING, FINAL PREPARATION OF B AND D ARRAYS 
BENEATH WING 


IF CIW.EQ.QI GO TO 420 

IF C J.LT. JW10.0R.J.GT.JW3) GO TO 420 

DO 400 K= IFUMJ, IFUNJ 

BBARU(K)=-2.*CQN2CKI*BBARU(K| 

400 DBARUIK )«C0N2 ( K) *C 8CHKUC R ) *F UN5C Jl—CBARUC K) 1 +C0N8 (K J <‘FUN9C J) ♦C0N9I 
1 K )*FUN10 l Jl 

IF (IFUMJ.GT.il GO TO 410 

D8ARU(1J = DBARU( II +C0N4*SPR IMEC J I 

GO TO 420 . 

410 OBARU( IFUMJ l-DBARUC IFUMJ I-A8AR C IFUM J )*PHI U( JG,IFUHJ— 1 I 

PART 9 FINAL PREPARATION OF 0 ARRAY IN OUTER REGION FOR SUBSONIC 
FREE STREAM MACH NUMBERS 


D 2500 
02510 
D2520 
02530 
D2540 
02550 
D2560 
D2570 
D2580 
D2590 
D2600 
D2610 
D 2620 
02630 
0 2640 
02650 
D 2660 
02670 
02680 
02690 
D2700 
0 2710 
D2720 
02730 
02740 
D2750 
02760 
D2770 
D2780 
D2790 
0 2800 
02810 
02820 
028 30 
D 2840 
02850 
02860 
D2870 
02880 
02890 
D2900 
02910 
D2920 



O O o o 


420 IF (AMINF.GT.i.l GO TO 480 D2930 

AX= A8S( XW( J ) 1 02940 

IF (J.GE.JXN.AND.J.LE.J31 GO TO 440 02950 

00 430 K=KG0NP1.KF 02960 

XOC R 55 AX/SQRT ( AX *♦2 +8ET A$Q*RW (K 1**2 I 02970 

430 DBAR(K)=C0N3(KI*(RWR(K) *( X0CR*FUN3 ( Jl ♦•5*( 1 •-X0CR)*FUN3( JW33 I*4.*X 02980 

10CR**2*FUNY( Jl I-C0N2IK )*OBAR(Kl ♦C0N7IK1*FUN8< Jl D2990 

GO TO 470 03000 

440 00 450 K= KGUNPl » KF 03010 

XOC R=AX0CR i K ) 03020 

450 0 BAR ( KI-CGN3 ( K | * ( RWP ( Kl *( XGCR*FUN3! Jl*.5*l l.-XQCR )*FUN3 ( JW3) 1*4. *X 03030 
l 0CR**2*FUNY ( J I I-C0N2 ( K I *DBARI K1+C0N7 (K1*FUN8< J) 03040 

IF (ALPHAD.EU.O.) GO TO 470 03050 

IF (J.LT.JWiOl GO TO 470 D3060 

IF (IWALL.EQ.O) GO TO 470 03070 

00 460 K=KGUNPl» KF 0 3080 

460 DBARl K)=OBAR<K)-CON10(K)*FUN11 IJ I-C0N11(K)*FUN12I Jl 03090 

4 70 OBAR ( KGUNPl ) = DBAR ( KGUNP 1 ) -ABARI KGUNPl 1*1 RWRI KGUN) *FUN3I Jl +FUNXC J 1 1 D3100 

GO TO 620 D3110 

03120 

PART 10 FINAL PREPARATION OF D ARRAY IN OUTER REGION FOR 03130 

SUPERSONIC FREE STREAM MACH NUMBERS 03140 

03150 

480 IF (J.GT.JW1X) GO TO 490 D3160 

KLO^KGUNPl D3170 

GO TO 590 D3180 

490 IF (J.GT.JW3X1 GO TO 500 03190 

KUP-KUPAIJJ D 3200 

KL0=KGUNP1 03210 

GO TO 520 03220 

500 K UP -KL3 A( J I D3230 

XWJ=XW(J) 03240 

DO 510 K= KGUNPl »KUP D3250 

BRSQ= (BET A*RW(K) 1**2 03260 

ANUM1=SQRT(XWJ**2-BRSQ1 03270 

ANUM2=S0RT(ABS( (XWJ-XWMl**2“BRS0ii 03280 

510 DBAR(K1=-CQN2( K)*DBAR( K I +C0N3CK 1*RWR (K )*FUN3 ( M |*XWMSQR*C XWJ*ANUM 1- 03290 

1 (XWJ+XMM)*ANUM2+BRSQ*(ALOG(XWJ-XWM*ANUM2l-ALOGIXMJ*ANUMim 03300 

IF (KUP.EQ.KF) GO TO 610 D3310 

dLQ-K UP + 1 03320 

KUP=KUPA(J) D 3330 

520 Z=XWl Jl-BETA*RWlKLOI 03340 

JJ=-1 03350 
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530 

JX= J-JJ 

IF (Z.LT.XW! JXI I GO TO 530 
XWJ=XW( J) 

DO 550 K=KL0»KUP 
8R=BETA*RW(K) 

Z*X WJ-BR 
ZR=1./Z 
J J- -1 

540 JJ=JJ+1 
JX=JX-JJ 

IF (Z.LT.XW(JX)) GO TO 540 _ 

550 DBAR( K)=C0N3(K)*(RWR(KI*FUN3(JX)*CXWJ*ZR**1..5*SQRT( XWJ+BR ) ♦ ( BR*ZRI 
1**2* ( ALOG! BR)-AL0G(XWJ+SQRT(XWJ**2-BR**2I I I )*4«*FUNV ( J ) )-C0N2!K )*0 
2BAR(K>-»-C0N7 (K)*FUN8< J) _ 

IF (ALPHAO.EQ.O.) GO TO 570 
IF (J.LT.JW10) GO TO 570 
IF (KUP.LT.KM) GO TO 580 
IF UWALL.EO.O) GO TO 570 
PO 560 K=KLO« KUP 

560 0BAR ( K) =DBAR( K )-CON 10!K )*FUN ill JI—CCN11IK )*FUN12f J) 

570 IF (KUP.EQ.KF) GO TO 610 

580 KLO=K UP*1 

590 DO 600 K^KLOtKF 

600 OBAR(K)=-CON2(KI*OBARIK) .... 

610 0BAR(KGUNP1 )=D8AR( KGUNP1 )-AB AR ( KGUNP 1 )* <R WR ( KGUN) *FUN3I J) ♦FUNXI J)1 

PART 11 FINAL PREPARATION OF B AND D ARRAYS AT WALL 


620 IF (IWALL.EQ.OI GO TO 640 
IF (IWALL.EQ.2I GO TO 630 
BBAR (K.M) = BBAR(KM)+CBAR(KM)-H/DX2 
DBAR(KM) = DBAR(KM)-H/DX2*PHI( JMl.KM J 
IF (OMEGA! KM) .GT . 1. ) 0MEGA(KM)=1. 

GO TO 640 

630 BBAR(KM) = BBAR(KM)+CBAR(KM|-H 

PART 12 FIRST SWEEP OF THOMAS ALGORITHM I ABOVE AND BENEATH WING) 


640 IF (IW.EQ.OI GO TO 670 

IF (IFJNJ.EQ.l) GO TO 660 

IF ( J.LT. JW10.0R. J.GT.JW3) GO TO 670 

DO 650 K=2» IFUNJ 
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KM1--K-1 D 3790 

BBAR ( K )=ABAR{ K)*CBAR(KM1J-BBAR(K)*BBAR(KMI) 03800 

CBAR(K)=-CBAR(K)*8BAR<KMII 03810 

DBAR(K)=ABAR(KI*0BAR(KM1)-DBAR(K)*BBAR(KM11 03820 

IF ( K.L E. IFUM j ) GO TO 650 03830 

BBARU { K) ^ABAR ( K )*CBARU t KMl ) ~B8ARll (K J*BBARU( KM1 ) 03840 

CBARU <K) = -*CBARU(K )*8BARU(KMl ) 03850 

OBARU(K) =ABAR ( K ) *0BARU ( KMi )— DBARU IK )* BBARU I KMI ) 0 3860 

650 CONTINUE 03870 

660 KMFNJPl 03880 

KM1=K— 1 03890 

BBAR(K)=.5*ABAR(K)*( BBARU (KMi)*CBAR(KM 1 l+BBAR < KMI )*CBARU( KMI ) )-BBA 03900 
IRIK )* BBARU I KM1)*BBAR(KM1I 03910 

CBAR ( Kl =-’CBAR( K )* BBARU (KMI )*BBAR(KM 1) 03920 

DBAkt KJ = • 5*ABAR ( K I *( BBARUC KM1)*DBAR(KM1J*BBAR(KM1 J*DBARU(KMl) l-DBA 03930 
IRIK)* BBARU! KM 1)*0BAR(KM1) D3940 

03950 

PART 13 FIRST SWEEP OF THOMAS ALGORITHM (GENERAL CASE! 03960 

03970 

KB=K«-1 03980 

KT= KF— l FNJP l D 3990 

GO TO 680 04000 

670 KB 3S 2‘ 0401 0 

K T= KF M I 04020 

680 00 690 K=KB » KF 04030 

KM1 =K— 1 040 40 

BBAR{K)=ABAR(K)*CBAR(KM1I— BBAR(K)*BBAR(KM1I 04050 

CBARl K) =-CB ARI K ) * BB AR ( KMI ) 04060 

690 DBAR«K)=ABAR(K)*DBAR( KM 1 ) -OB AR ( K ) * 8 6 AR ( K M 1 ) D4070 

0 4080 

PART 14 SECOND SWEEP OF THOMAS ALGORITHM 04090 

04100 

PHI 0 ( KF ) = DB ARlKF ) / BBAR ( KF ) 04110 

00 700 KK=1,KT 04120 

K=KF— KK 04130 

KP1=K+1 04140 

700 PHIO(K)=(DBAR{K)-CBAR(KI*PHIOIKPll l/BBARIK) 04150 

IF UW.EQ.O) GO TO 720 04160 

IF ( J.LT.JWIO.OR.J.GT,JW3) GO TO 720 04170 

PHIOUIIFUNJ+D-PHIOII FUNJ + 11 04180 

DO 710 KK* 1 y IFUN J 04190 

K= I FNJP1-KK 04200 

KPl=K*l 04210 



PH IQ(K)=IDBARI K )— C8ARI K ) *PHIO( KP l ) I /BBARI K ) 

710 PHI0U(K)=( 08ARU I K I-CBARUI K )*PHI0U(KPll ) /BBARUIKI 
C 

C PART 15 NEW VALUES OF VELOCITY POTENTIAL, MAXIMUM OPHI 

C 

720 DO 730 K=1,KF 

PHI OLO(K)=PHI(J,K) 

DPHI-0MEGA(K)*IPHI01K PHI (J,KH 

IF lABSIDPHIJ.LE.ABSIOPHlMXH GO TO 730 

DPHIMX=DPHI 

JMARK=J 

KMARK=K 

730 PHI < J,K) = PHI( J»K)*DPHI 
IF IIW.EQ.O) GO TO 780 
IF IJ.LT. JW10.0R. J.GT.JW3PII GO TO 780 
IF I J.LE. JW2-0R-I FUM(JGI.EO.l) GO TO 750 
I FUMM 1=1 FUM ( JG )-l 
IFMJM1=IFUM( JG-ll 
DO 740 I F MJM 1,1 FUMM 1 

740 PHIUI JG,K ) = PHI( J, K ) +PHIU ( JG- l« Kl-PHI ( J-l, K) ♦OLTPH 
IF (IFUMMI.EQ.IFUNJI GO TO 780 
750 IFNJP1=1FUNCJ+1 ) 

DO 760 K=1 , I FN JPl 
760 PHIUD<K)=PHIUIJG*K) 

DO 770 K= IFUMJ « f FUNJ 

DPH I^OMEGAU I K ) *{ PHIOUIK)— PHIUI JG,M) 

IF ( ABSI DPHI I.LE.DPHIMXl GO TO 770 

OPHIMX=DPHI 

JMARK=-J 

KMARK--K 

770 PHIU( JG.KI^PHIUI JG,KJ*DPHI 
780 CONTINUE 

IF CAMINF.LE.l. I GO TO 800 
DO 790 K= 1 ♦ KF 
C 

C PART 16 PRINT MAXIMUM DPHI, CHECK CONVERGENCE 

C 

790 PHI (J5,K) = 2.*PHI« J5-ltK)-PHl ( J5-2.K) 

800 PRINT 850, I , JMARK *KMARK, DPH I MX 
IF ( I.GT.l) SUPP=SUP 
IF U.EQ.IMAXJ RETURN 
IF ( ABSI DPHIMX) «GE «EPSI ) GO TCI 10 
RETURN 
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c 04650 

8L0 FORMAT I16H SUBROUTINE WORK///) 04660 

820 FORMAT <52H LOCATION ANO VALUE OF GREATEST CHANGE IN VELOCITYI D4670 

830 FORMAT <48H POTENTIAL ( NEGATIVE LOCATION INOICES ARE FORI 04680 

840 FORMAT <22H POINTS UNDER WING I//) 04690 

850 FORMAT (3H 1= 1 5 »2X » 6HJMARK*! 5»2X » 6HKMA^K=I 5» 2X* 7H0PHIMX*E 16» 81 D4700 

END D4710” 
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OVERLAY (DICK, 1,3) E 0 

PROGRAM RESULT E 10 

COMMON SIGMA, DELTA, I, BETASQ, DXR,OXSQR,GAMPi ,GP1DXR,KMM1 ,KFMJ. , KF, OE E 20 
1LETA,PIR,CQN4»C0N5»H»JT»JI,JF,DPHIMX*DX* JXN, SNO,C S20, SNALP , l J W, J Wl E 30 
20,JW20,JW1X, JW3X,BETA,JW3M1,DLTPH, JCHCK,I W, JWICM2 , JW3PI* JWAOMl, M,X 6 40 

3 WM, XWMSQR , PI , AK2 , AX2 » AK1 , AX1 , AX10 »CNX,NAMXP 1 , A 1, A 2, ZMACH, JKC K E 50 

COMMON R( 1201 » S PRI ME( 120) » FUN ( 120.) ,XW(120),Y1( L20 ) « Y 2 1 1 20 ) , PUN l (12 E 60 
10), FUNQ (120), IFUN( 120) ,FUN2( 120) ,FUN3( 120 ) , F«JN4< 1 20) ,£GUN< 120), CP( E 70 

2 120) » FUNX { 120) ,SLAS( 120,6) , CPOI 1 20 ) , KLOAI 120 ) ,KUPA ( 120 ) ,FUN5< 120), E 80 

3 FUN 6 ( 120 ) , FUN 7 (12 0), FUNY (120) ,CP1( 120 ) »CP 2 ( 120) E 90 

COMMON FUN8(12 0) , F-JN9 ( 120 1 ,FUN 10( 120 ) ,FUN 11 ( 120) , Y2PRM( 120 ) , FUN 12( E 100 

1120 ), FUNA( 120) ,FUNB( 120) E 110 

COMMON C0N7 1 100)., GQN8 HOO) ,C0N9( 100 ) «C0N10t 100) , CON 1 1 ( 100) ,C ON 1(10 f 120 
10 ) , C0N2 (LOO), C0N3 ( 100 js MEGA ( 100 > , A6AR ( 100 ) , BBARt 100 ) , C6AR C 1 00 ) , OB E 130 
2 AR ( 100) , PH 1 0(1 00) ,RWM jO) ,RWR1 100),AXOCR( 100) ,ACHK( 100) , PH I OLD ( 100 F 140 
3) , BCHK< 100) E 150 

COMMON PHIU0(25), OM EGAU ( 2 5 ) « ACHKUI 2 5 ) , BBARUI 25) , C B ARU( 25) ,DB ARUl 25 E 160 
1 ) ,8CHKU(25) ,PHIOU( 25) E 170 

COMMON IFUM(50), V L AM ( 50)»VTAU(50), VL AMP ( 50) * VTAUP ( 50) , YV< 50) » IV l 50 E 180 
1 ) ,FUNAG(50) ,FUNB0(50) ,UU0D ( 50 ) , UU900( 50 ) E 190 

COMMON PHI< 109, 50), PHIU(50, 25) ,C0EF(2il E 200 

COMMON ZNMLIST/ J 1 , J2 , J3 , J4, J5 , FAC, KM, RCOM • A, 6, 1 WALL, P, GMEGAD , AL PH E 210 

1 AO,HSPAN, AMINF,GAMMA,IR,RC,RMAX,RN, JS.RS, JW1 , JW2 ♦ JW3 , JWD, I WING, Bl, E 220 

2 B2, 0EL1 , DEL , IVOR, I DIR, EP SI, SUB, SUP, I MAX , SF ACTOR E 230 

0 l MENSI ON NAM( 2) E 240 

DATA NAM/7HBBAR(K),6HF0N(J)/ F 250 

E 260 

PART 1 SHOCK-WAVE ANO SONIC LINE LOCATIONS E 270 

E 280 

PRINT 1070 E 290 

IF (AMINF.GT.l.) Jl = Jl+2 E 300 

IF (AMINF.GT.l.) J4=J4-2 E 310 

00 250 J=J1,J4 E 320 

KK=l E 330 

KK2= l E 340 

JP1=J+1 E 350 

JM1= J-l " E 360 

J M2 = J-2 E 370 

DO 170 K=1,KF E 380 

IF (RW(K) *LT.R( J) ) GO TO 160 £ 390 

IF (K.LE. IGUN( JM1 ) .AND.K.GT. IFUNI J) ) GO TO 10 E 400 

PHI Ml=PHI ( JM1 , K ) E 410 



IF (K.LE. IGUNI JPII.AND.K.GT.IFUNI JM GO TO 20 E 420 

PHI PI = PH I ( JP1*K) E 430 

60 TO 30 E 440 

10 PHI Ml=PHI ( JMl » K J *RWR(K l*FUN3 I JMi I+FUNXI JM1 ) E 450 

20 PHIP1=PHH JP1 ,KM-RWRIM*FUN34JPU*FUNX|JP1I E 460 

30 U-.5*DXR* ( PH I PI— PHI Ml I E 470 

IF (K.LE.IFUNI J)l U=U+FUN4 1 J I E 480 

AL AMB=BET ASQ-GAMPl*U E 490 

IF (K.LE. IGUNI JM2I. AND. K.GT.IFUNIJII GO TO 40 E 500 

PHIM2*PHI( JM2.K J E 510 

IF (K.LE. IGUNIJI. AND. K.GT.IFUNIJi » GO TO 50 E 520 

PHI MO=PHI ( J »K I E 530 

IF I K.LE. IGUNI J+2I.AND.K.GT. I FUN ( J ) I GO TO 60 E 540 

FIP2=PHI( J*2,KI E 550 

GO TO 70 E 560 

40 PH I M2=PH I ( JM2 » KI *RWR( KI*FUN3 ( JM2I ♦FUNXI JM2 I E 570 

50 PHIM0=PHI(J,K)«-RWR(KI»FUN3(JI«-FUNX( J) E 580 

60 FIP2=PHl( J+2.K I+RWR(KI*FUN3( J«-2) +FUNX ( J*2 J E 590 

70 F IP 1= PHIP 1 E 600 

F IMQ=PHIMO E 6 10 

F IM 1= PH I M 1 E 620 

F l M2 = PH I M2 E 630 

IF « ALAMB.GT.O.I GO TO 80 E 640 

U = • 5 *DXR* ( 3 «*PH IMO— 4.*PH IM1+PHIM2) E 650 

IF (K.LE.IFUNI JI) U=U+PUN4(JI E 660 

ALAM8=6ETAS0-GAMP1*U E 670 

IF ( ALAMB.LT.O . I GO TO 80 E 680 

U=BETASQ/GAMPi E 690 

30 IF (K.FQ. li GO TO 130 E 700 

IF (K. EQ.KF ) GO TO L40 E 710 

KM1=K~1 E 720 

KPl=K+l E 730 

DR1=RW(K)~RW(KM1 I E 740 

DR2=RW(KP1)-RW( K1 E 750 

DD1=DRI/(DR2*(0R1+DR2I I E 760 

002=1 DR2-DRI 1/ ( DRI40R2 ) E 770 

DD3=-DR2/(DR1*(DR1*0R21I E 780 

IF (KP1 .LE. IGUNf JI.ANO. K.GT.IFUNIJI I GO TO 90 E 790 

PHIPI = PHHJ,KP1) E 800 

IF (K.LE. IGUNIJi. AND. K.GT„ IFUN( J 1 1 GO TO 100 E 810 

PHI MO=PHI ( J .KI E 820 

IF (KML.LE. IGUNIJI. AND. K.GT.IFUNIjn GO TO 110 E 830 

PHI M1=PH I ( J » KM1 ) E 840 


GO TO 120 

90 PHIPl=PHU J.KP1) + RWR(KP1I*FUN3!JI*FUNXU> 

100 PHI MO=PH I ( J *K ) *RWR ( K) *FUN3t J ) «-FUNX ! J ) 

110 PHIM1=PHI ( J .KM1 I + RWR! KM1) *FUN3< J I +FUNX! J) 

120 V-0D1*PHIP1+D02*PH1M0+0D3*PHIH1 
GO TO 150 

130 V=. 5*DXR*(R(JP1)-R< JMi n~SNALP*SNO 
GO TO 150 
140 KM1=K-1 

V=I PHK J,K)-PHI< J.KMi) 1/ (RW(K)-RWlKMlll 

150 CSCMSQRTl ABSU.-SNO**?.)) 

SN2 0=2.*SN0*CS0 

W=( SNALP*CS0/RW<K)*FUN3I J)-.5*FUNI J)*SN20)/RWIK> 

IF (K.LE. IFUN( J )) V-V— SNALP*SNO 
IF (K.LE. IFUNI Jit W=0* 

USQ=( 1«HI |**2« , V**2^W* J fr2 

OMEGA(K3=AM!NF*SORT (ABStUSQ/! 1 •♦•5*C GAMMA- !• l*AMINF**2*! l.-USQI ) »> 
PHI0LD(K) = (FIP1-FIM2-3.^CF IM0'“FI MD J*DXR**3 
PHI0(K) = (FI P2-FI M l -3«* < F IP1— F f MO ) ) *0XR**3 
88AR( K ) = 0XR**2* { F I P i*F I Ml— 2«6F I MO ? 

GO TO 170 
160 KK=KK+1 
170 CONTINUE 
KKP l=KK+l 
K TT=KF+KKP 1 
I IC=0 

KKP 1Q=KKP 1 
00 180 11=1.6 
180 SI A St J» 111*6. 

DO 240 Il=lf 6 
DO 220 K L=KKPl * KF 
K2=KTT-Ki 
K2Ml=K2-l 

IF {0MEGACK2».GT.1..A^.0MFGACK2MU.GT.1.I GO TO 190 
IF (0MEGAIK21 .LT . I AND. 0MEGA1K2H l ) .LT. 1 , » GO TO 22 0 
SLASU.I I ) =RW(K2)-(RW<K?J-RM(K2M1 ) )*( OMEGA! K2 )-l . 1/ IOMEGA! K2I-QMEG 
1 A 1 K 2M 1 H 
GO TO 230 

190 IF (PHIOLD! K2 » .GT .0 . .OR. PHIO! K21.LT.0.) GO TO 220 
IF IBBAR(K2*.GT.0.» GO TO 220 
IF (K2.6Q,KF.Dft.K2.EQ«»KKPlO) GO TO 220 

IF ( PH19LD1K2M1 ) . GT .0. . AND.PHIOLOI K2«-H .GT .0. ) GO TO 220 
IF 1PHIOLO! K2M1I.GT.0. I GO TO 200 


E 850 
E 860 
E 870 
E 880 
E 890 
E 900 
E 910 
E 920 
F 930 
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E 950 
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E 1040 
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E 1060 
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E 1080 
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F 1100 
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E 1 120 
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E 1 140 
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E 1160 
F 11 70 
E 1 180 
E 1190 
E 1200 
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E 1240 
E 1250 
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IF (PHIOLDC K2+l).GT.0.i GOTO 210 

200 SLASt jfu!=RWlK2»+«ftWlK2-i)-RWCK2ll*PHlOLD(K2)/lPHIOLOCK2)-PHIOtDC 
IK2-U) 

210 .SLA SC J 1 1 1 )=RW( K2»*(RW(K2*i)-RW(K2l ) ♦PHI0L0IK2 )/( PHI0L0IK2 1-PHIOLDC 

IK2+1) ) 

GO TO 230 
220 CONTINUE 
GO TO 250 
230 KKP1=K1+1 

IF (KKPl.GT.KFi GO TO 250 
240 CONTINUE 

250 PRINT 1080* J »XW ( J ) • ( SL AS ( J* 1 1 >* 1 1* 1*61 

PART 2 PRESSURE COEFFICIENTS AT GRID POINTS 
PRINT 1090 

IF (IW.EQ.OI GO TO 290 
IFN JW3=IFUN( JW3) 

PHIUC JW3-JW10+3* I FNJW3 + 1 l*PHI ( JW3i IFNJW3*1) 

DO 280 K= 1 » IFN JW3 
I MK=0 

DO 280 J=JW2«JW3P1 
J G= J— JW10+3 

IF ( 1MK.EQ.1) GO TO 260 
IF (IMK.EQ.2i GO TO 270 
IF CIEUMI JG + ll.te.KI GO TO 280 
1 MK = 1 

CCNN= PHIUC JGtKl-PHIiJf K» 

GO TO 280 
260 IMK=2 

GO TO 280 

270 PHIUC JGfK) = PHH J.KI+CONN 
2 80 CONTINUE 

290 IF (IVOR.EQ.OI GO TO 300 

IF C JCHCK.EQ.JW3) GO TO 300 
JG=JCHCK-JW10+3 

GANO= ,5*Y2 ( JCHCKI * ( VLAMC JGHVT AUC JG)**2/VLAM( JGI I 
GANG=GANO*FUNA( JCHCK) * C 1 .♦ (ft ( JCHCKi/Y2C JCHCKI 1**2 J 
300 DO 530 K=1.KF 
ALAM8=l. 

DO 520 J=J1»U4 
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JP1=J*1 
JM1 =J— 1 
JM2=J-2 
ACHKK=ALAMB 
JG= J-JrtlC+3 

IF (K.GT • IFUN( J ) I GO TO 310 

PHI Ml=PHI ( JM1 » Kl 

PHI MO =P HI ( J »K I 

PHI PI =PHI ( JPl » Kl 

GO TO 350 

310 IF (K.LE. IGl|N( JMl) I GO TO 320 
PHI MI=PH l I JMlt K) 

IF (K.LE. IG'JN( JI) GO TO 330 
PHIM0=PHI IJ fK) 

IF (K.LE. IGUN( JPl ) ) GO TO 340 
PHI Pi = PH I ( J PI » K) 

GO TO 350 

320 PHIMi = PHI(JMl»K)«-RWR(Kl*FUN3(JMl I ♦FUNXI JM1 1 
330 PHI MO=PH I ( J *K I +R WR( K 1*FUN3 ( J I +FUNX I J ) 

340 PHI PI = PH I 4 JPl « K I +RWRIK) *FUN3( JPl J*FTJNX( JP 1 1 
IF (K.LE. IFUN( JPIII PHIPI=PHK JPltKl 

IF ( IW.EQ.O.OR.K.GT.lFUNl JPl ) .OR. J.GT. JW3) GO TO 350 
PHI P1 = PH[PI*.5MPHIU< JG + 1 , K)-PHl ( JPl. K) ) 

350 U=. 5*DXR* (PHI PI— P HIM 1 I 

IF (K.LE. IFUN( Jll U=U+FUN4 ( J & 
alamb=betaso-gampi*u 

IF ( ALAMB .GT .0 . .OR. ACHKK. GT .0. ) GO TO 360 
SAVE=U 

U=DXR*(PH IMO-PHIMII 
IF (K.LE. IFUN( J) ) 0=U+FUf^4( J i 
CHECK=BET ASQ-GAMP 1*U 
IF (CHECK.GT.O. I U=SAVE 
ALAMB=BETASQ-GAMP1*U 

360 IF (ACHKK. LT.O. -AND. ALAHB.GT. 0.1 U=DXR* ( PHI MG-PH IM 1 ) 

IF (ACHKK. LT.O. . AND. ALAMB.GT .0. . AND.K.LE. IFUNC Jl l U*U+FUN4(JI 
IF (IW.EQ.O.OR.K.GT. IFUNIJ I.QR.J.GT.JW3I GO TO 38C 
U0=.5*0XR*( PHIU( JG+1 »K)-PHIU( JG-l * K I |-FUN4( Jl 
UU= DXR* ( PHIUl JG»K I -PHIU ( JG-l t K ) I -FUN4I J I 
U0=U0-2. ♦FUNO( J) 

UU-UU-2.*FUN0( J I 
ALAMB0=BETASQ-GAMP1*U0 
IF ( ALAMBO.LT.O. ) GO TO 3T0 
ALAMBU=BEYASQ-GAMP1*UU 
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IF (ALAMBU.LT.O.) UO=UU 
GO TO 380 
370 UO=UU 

380 IF (K. EQ.il GO TO 440 
IF (K.EQ.KFJ GO TO 450 
KMl=K-l 
KP1=K+1 

0R1 =R W( K I— R W ( KM 1 1 
DK2=RW(KP11-RW(K) 

DDi=DRI/ I DR2*( DR1+DR2 ) I 
002= ( DR2-0R1) /<DR1*0R2) 

0 03 =~DR 2 / I OR 1 * ( DR 1 FDR 2)1 
IF (K.GT.IFUN( Jll GO TO 390 

V=DD1*PHI ( J *KP1)+D02*PHI( J »K)FD03*PHl I JtKMl) 

W=0 . 

IF < IW.EQ.0.0R.J.GT.JW3) GO TO 470 

V0=DD1*PH IU I JG*KPl 1+O02*PHIU ( JG» K ) +DD3*PHIUI JG»KM1 1 
GO TO 470 

390 IF (KPL.LE. IGUNt J 1 ) GO TO 400 
PHI Pi -PH I ( J PI 1 
IF (K.LE* I GUN I J | I GO TO 410 
PHIMO=PHI (J.KI 

IF I KM l • L E . I GUN ( J I J GO TO 420 
P H I Ml =PH l ( J f K H 1 1 
GO TO 430 

400 PHI P1 = PHI ( J* KPl » *RWR(KP 1 J *FUN3< J I ♦FUNXIJ I 
410 PHIMO=PHI < J »K)+R*R(K)*FUN3(J)*FUNX(JI 
420 PHIM1=PHI C J *KM1 ) ♦RWRI KM1 1 *FUN3( J 1 ♦FUNXI Jl 
430 V=0D1*PHIP1+DD2*PHIMQ+DD3*PHIM1 
GO TO 460 

440 V=( PH 1 1 J ,21— PH 1 1 J» 1 1 l/IRW 121-RWt ill 
IF (K.GT.IFUNt Jll GO TO 460 
W=Q . 

IF < JW.EQ.O-OR. J.GT.JW3) GO TO 470 
V0= (PHIUt JG,2)-PHIU(JG,i) 1/CRW121-RWI il ) 

GO TO 470 
450 KM 1=K-1 

V=( PHI C J » Kt— PHI i J t KM1 ) I / '( RklK IHTWf K-Mll 1 
460 CSO=SQRT< ABS( l.-SN0**2ll 
SN20=2.*SNO*CSO 

W=(SNALP*CSO/RWtK l*FUN3( J1-. 5*FUNI 3 1*SN20 l/RMKI 

470 CPI J)=-2.*U-V**2-W**2 „ 

I p ( I W.EQ.O .OR • J. LT. JW10.0R. J.GT. JW3.0R.K®GT • IFUNI JH3 1 1 GO TO 520 


E2130 
E 2140 
E2150 
E 2160 
E2170 
E 2180 
£2190 
E 2200 
E2210 
E2220 
E 2230 
E2240 
E 2250 
E2260 
E 22 70 
E2280 
E 2290 
E 2300 
F 2310 
E 2320 
E2330 
E 2340 
E2350 
E 2360 
E2370 
E2380 
E 2390 
E2400 
E 24.10 
E 2420 
E2430 
E2440 
E 2450 
E 2460 
E2470 
E 2480 
E2490 
E 2500 
E2510 
E2520 
E2530 
E 2540 
E2550 


IF (K.GT. IFUN< J) ) GO TO 510 
CPQ (J )=-2. *U0-V0**2 
IF (Y2IJ) .LT.RW(K) ) GO TO 510 
IF IRWIK) .LT.RMAX } GO TO 520 
HB=Y2 ( J) +R{ Jl**2/Y2( J) 

HBP=Y2PRMI J )*( I.-(R|J)/Y2CJ) ) **2 1 *P I R/ Y2 ( J ) *SPRI ME 4 J ) 

FNUMI =0. 

ARG1=HB**2~IRW(K) +R( J I **2/RW I KM **2 
IFC ARG1.GT • i.E-06 1 FN(JM1= l./SQRTI ARGU 
JG=J-JW10+3 
FNUM1=FNUM1*FUNA0< JG) 

OUX=SNALP* (HB*HBP~( l.+(R(J)/RW(K) )**2)*SPRIME ( J ) *PIR1*FNUM 1-FUN4I J 

DUX=DUX+SQRT < H8**2-IRW (K)+R<J)**2/RW(K)) **2 ) *SNALP*FUNBOI JG) 
U3=U+DUX-FUN0( J) 

U4=U0-0UX + FUN0( J) 

DVX=-SNALP*FNUM1* ( L .~i R ( J } /RW I K| | **2 )* I RW (K ) +R ( J ) **2/RWl K ) ) 

V3=V«-DVX 
V4= VO-DVX 

IF (IVOR. EQ. 01 GO TO 500 
IF (J.GT.JCHCK1 GO TO 480 

OUY=SNALP*( HBP*( VLAM( JG ) **2*VT AU ( JG ) **2) +2.*HB*I VLAMI JG)*VLAMPf JG) 
1 + VT AU ( JG I *VT AUP ( JG I ) ) 

DUY=DUY*FUNAI J) *S N ALP*HB* ( VL AM ( JG) **2*VTAUl JG )**2 ) ♦FUN BI J ) 
U=U3-DUY*VTAU( JGI /( I .-VTAUI JG ) **2) 

U0=U4-DUY*VTAU( JG)/(l.-VTAU( JGI**2) 

8NUM1=.5*(VLAM< JG 1 + VTAUI JG 1**2 /VLAMI JG) 1 
GAN=BNUML*HB 

DGANDX=8NUMl*HBPfrHB*( .5*1 1.- 1 VTAUI JG) /VLAMI JGM**2 1 *VLAMPI JG) *VTAU 

I I JG1/VLAM( JG)*VTAUPiJG) i 
DGANOX=OGANOX*FUNA( J $+GAN*FUNB( J ) 

GAN=GAN*FUNA{ J) 

GO TO 490 
480 GAN— GAN 0 
DGANDX=0. 

DUY=SNALP *GAN*I ( ( 1 .-VTAUI JGI )/((!•- VTAUI JG) 1**2* VLAMI JGI**2) *1./ ( 1 
L.*VTAU( JG) ) )*VLAMP< JG)*VLAM( JG»*(l./(( l.-VTAUI JG) l**2+VLAMUG 1**2) 
2-1. /< 1. + VTAUI JG) l**2)*VTAUPI JGI) 

U=U3-DUY 
U0= U4-0UY 
490 V=V3 
V0=V4 

Y2N=IRW(K)*RI J|**2/PMI6 * )/HB 


E 2560 
E2570 
E2580 
E2590 
E 2600 
E 2610 
E 2620 
E2621 
E2622 
E 2630 
E2631 
E 2640 
62650 
E 266 0 
E2670 
E 2680 
E 2690 
E2700 
62710 
E2720 
E2730 
E2740 
E 2750 
E 2760 
E2770 
E 2780 
E2790 
E 2800 
E2810 
52820 
E2830 
E 2840 
E 2850 
62860 
E 2870 
E2880 
E2890 
E2900 
F 2910 
E2920 
E2930 
E 2940 
F2950 



n r> o 


BNUM2=SQR T ( l.-Y2N**2) 

CNUM3=BNUM2— VT AU ( JG) 

CNUM4=BNUM2*VT AIM JGI 
BNUM3=Y2N**2/ ( BNUM2*HB l*VLAM( JGI 
BNUM4-VLAMI JG l / ( BNUM2*HB*RW( K ) )*Y2N*P IR 
DNUM3=CNUM3**2+VLAM(JG$**2 
DNUM4=CNUM4**2«-VLAM< JG>**2 
ENUM3=CNUM3**2“VL AM( JG i**2 
ENUP4=CNUM4**2-VLAm JG )**2 
ARG3=2.*VLAM( JG.|*CNUM3 
ARG4=2« J *‘VL AH( JGJ *CNU M4 
THETA3=ATAN2( ARG3»ENUM3) 

THETA4=-ATAN2( ARG4, FNUM41 

U3=U+SNALP*( THETA3*DGANDX«-2.*GAN/QNUM3*<CNUM3*VLAMP(JG)-BNUM3*HBP+ 
1 VLAMI JG)*VTAUP(JG)+BNUM4*SPRIME(J) ) ) 
U4=U0~SNALP*(THETA4*DGAN0X+2.*GAN/0NUM4*(CNUH4*VLAMP< JG)-8NUM3*HBP 
1-VL AMI JG)*VTAUP! J G ) +BNUM4*SPR I ME < J } ) ) 

BNUM4=1 (R I J I /PW ( K ) ) **2 

V3= V«-2. *SNALP* Y2N* VLAMI JG ) *GAN*BNUM4/ I BNUM2*DNUM3 » 

V4= VQ-2 . *SNALP*Y 2N*VLA M ( JG )*GAN*6^UM4/ ( BNUM2*0NUM3 J 
500 W3=-SNA!„P 
W4=— SNALP 

CPI I J )=-2 •* ( U3+SNALP#W3 )-V3**2-W 34*2 
CP2 IJI=-2.*IU4+SMALP*W4}-V4*42-W4**2 
GO TO 520 c , 

510 CP0(J) = CP(J1 
C PI ( J )-0. 

CP2(Ji=0- 
520 CONTINUE 

PRINT 1110* KfJl* J4«(CPIJ)«J-J1,J4) 

IF ( 1 M • EQ«0*0R«K • GT • IF UNI J W3 ) ) GO TO 530 
PRINT 1100, K,JW10, JW3, {CPCI JI ,J=JM10,JW3l 
IF (RW(K).LT.RMAX) GO TO 530 
PRINT 1100, K , JWIO , JW3 , ( CPI ( J ) , J= J W 10, JW3 I 
PRINT 1100, K, JW10, JW3, (CP2( J» ,J=JW10, JM3I 
530 CONTINUE 

PART 3 PERTURBATION VELOCITY POTENTIAL AT GRIO POINTS 

PRINT 1120 
JGL= 1 

JPU=JW3-JW10*4 
00 540 K=l,KF 


62960 
E 29 70 
E2980 
E2990 
E 3000 
E3O10 
E 30 20 
63030 
E 3040 
E3050 
E 3060 
E30 70 
E3080 
E 3090 
E31Q0 
E 3 1 1 0 
E3120 
F 3130 
E 3140 
£3150 
E 3160 
E 3 1 7 0 
E 3 1 80 
E 31 90 
E3200 
E3210 
E 3220 
E3230 
E 3240 
E 3250 
E 3260 
E 3270 
E32 80 
63290 
E 3300 
F 33 10 
E 3320 
F 3330 
6 3340 
1: 3350 
E 3360 
E3370 
E 3380 




non 


PRINT 1110, K, JL* J4» (PHI(J,K),J=Jl,J4) E3390 

IF < l W.EQ.O.OR.K.GT.IFUN( JW3I) GG TG 540 E3400 

PRINT 1100, K« JOL.JPO, (PHIUI J,K| ,J=1,JPU» F3410 

540 CONTINUE E 3420 

E3430 

PART 4 AXIAL LIFT DISTRIBUTION - LIFT AND MOMENT E3440 

E3450 

IF ( ALPHA D. FQ.O..OR.HSPAN.EC.O.) GO TO 750 63460 

PRINT 1130 E3470 

JG= JW3-JW10+3 F 3480 

A I N T=0. IttW f 

IF (IW.EQ.O) GO TO 570 $3$dQ 

K=1 E 3510 

AINT=-2.*(PHI( JW3, i)~PHIUlJG,m*RW<l» 63520 

550 K=K+l E3530 

IF (K.GT. IFUN( JW3II GO TO 560 E3540. 

AIN T=— ( PHI { JW3 , K J +PH I 1 JW3 , K— 1 I -PH1U C JG,K l-PHIUI JG, K- 1 1 !♦( R W( K l-R Ml E3550 
IK— 1))' ♦AlNT E3560 

GO TO 550 E 35 70 

560 AINT=AINT-(PHH JW 3, K-l l~PH IUI JG,K-i H*l Y2 ( JW3J-RW I K-l ) I E3580 

570 A 1NT=-A INT E3590 

ALA=SNALP/P1R*( <Y2( Jw3f-R ( JW3 >**2/Y2( JW3 > »**2*FUNAO<JW3-JWlO*3H-R< E3600 
1 JW3J**2)+AINT E3601 

IF (IVOR. EQ. 01 GO TO 590 E3610 

IF ( JCHCK.LT.JW3) GO TO 580 E3620 

ALS = ALA*SNALP/PIR*2.*(VLAM(JGI**2*VTAU(JGI**2J*{ Y2( J W3 )+R( JW3)**2/ 63630 

1Y2( JW3) )*#2*FUNA( J) E3640 

GO TO 600 E3650 

580 ALS=ALAfSNALP/PIR*4.*GAN0*VLAM(JGI*lY2(JW3J»RI JW3 l**2/Y2( J W3 H E3660 

GO TO 600 E3670 

590 ALS=ALA E3680 

600 ALANS=ALA— AINT E3690 

ALSNS=ALS— AINT E 3700 

A INTO=A INT E3710 

SMA= ALS-AL A E3720 

CP( J2)=0« ' E 373 0 

CP0(J2)=0. > E 3740 

CP1(J2)=0. E3750 


CP2 <J2I = 0. 

JWlOMl=JWlO-l 
J2P 1= J2 + 1 

IF (JW10M1.LE.J2I GO 10 620 
00 610 J= J2PI, JW10M1 


E3760 
£37 70 
E3780 
E 3790 
E3800 



CPI Jl=SNALP*SPRIMEt J) 

CPU Jl=CP( Jl 
CP2 I J i -CP ( J ) 

610 CPO(J) = CPlJ> 

620 00 700 J=J W10» JW3 
AINT=0. 

JG= J- JW1Q+3 

IF IIW.EQ.O) GO TO 650 
IF (IFUNt J) .EQ.O) GO TO 660 

K— 1 , t 

AINT=-(PHI( J+i, l)-PHKJ-lf 1)— PHI U ( JG+ 1 , I) +PH I Ul JG—l *11) *DXR*R Wl 1 ) 

630 K=K *1 

IF IK.GT.IFUNt J )> GO TO 640 

A I NT= AINT-. 5*DXR* |PHIIJ*1»KI— PHI l J-l ,KI«-PHI I J*l, K- ll-PHH J-l »K- 1 1- 
1PHIU(JG + 1»KI+PHIU{ JG- 1,K)— PHIUI JG*- 1 » K**l ) +PHK Ul JG— 1 • K— 1 I )* I RW I K) — RW 
2 ( K- 1 > ) 

GO TO 630 

640 AlNT=AlNT-.5*DXR* IPHI ( J*1,K-1)-PHI ( J-l, K- 1 )-PH IU ( JG*1 • K- l) *PH IUI JG 
i-l,K~l) )*IY2IJ)-RW(K-1I ) 

650 AINT=-AINT 
660 Y2P- Y2PRM I J ) 


JG= J-JW 10+3 

CPI J|=SNALP*(2.*U1.-(R(J J/Y2CJ) I**4)*Y2I J)*Y2P/PIR-2.*(1.~(RIJ)/Y 

12IJ ))**2) *SPRIME< J))*FUNAOIJGI*( Y2i Jl-Rt J»**2/Y2( J* l^/P^FUNBOl 
2 JG) *SPRIME( J) ) 

IF t J.GE.JW20 1 CP ( J 1= • 95*CP( J I *SQRT ( ABS ( f Y24 J)-Y1 1 J I )/(Y2 I J) +Y1 ( JI 
1)11 

CPC J)=CPt J)*A1NT 
HB=Y2tJ)*R( J)**2/Y2U) 

HBP=Y2P*U.~IRI J)/Y2IJi)**2i*PIR/Y2IJ)*5PRIM£UI 
IF (IVOR. EQ.O) GO TO 680 

IF (J.GT.JCHCK) GO TO 670 , 

CPOI J )=CP ( J ) +4. / PI R*SNALP*H3*IHB* I VL AM I JG ) *VL AMP ( JG ) *VTAUI JG ) *VTAU 
1 P ( JG) >+H6P*{VLAM( JG)**2*VT AUI JG) **2S 1*FUNA(.J 1*2. /P IR*SNALP*H3**2*I 
2VLAM(JG)**2+VTAU< JG )**2 ) ♦FUf'JBt Jl 
GO TO 690 

670 CPOI J)=CP( JM4./PI R*$NALP*GANO*(HB*VLAHPl JG) +VLAMI JG)*HBP I 


GO TO 690 
680 CPOI J)=CPI J) 

690 CP1IJ)=CP(J l-AINT 
CP2I Jl=CPOI JI-AINT 
DCP=CPOI J l-CPI J I 

700 PRINT 1060, J , CP I J I , CPOI J 1 « CPI I J ) # CP 2 ( J I » A I NT ,DCP 


E3810 
E3820 
E3830 
E3840 
E3850 
E3860 
E 3870 
E3880 
E 3890 
E 3900 
E 39 1 0 
E 3920 
E393 0 
E 3940 
E 3950 
E 3960 
£39 70 
E3980 
E 3990 
F4000 
E 40 1 0 
E 401 1 
E4020 
E4030 
E 4040 
E4060 
F 40 70 
E4080 
E4090 
E 4100 
E411 0 
E 41 20 
E 4130 
E 4140 
£4150 
E4160 
E 4170 
64180 
E 4 190 
E4200 
E4210 
E4220 
E4230 



AMA=0 . 64240 

AMS=0. 6 4250 

AMANS=3. 64260 

AMSNS=0. 64270 

DO 710 J= J2P1 ♦ JW3 64280 

AMA=AMA+.5* ICP( J) +CPI J-l ) l*IXWt J J-.5*DXI*DX 64290 

AMANS=AMANS+.5*(CP1( J|+CP1(J-1) J*(XW< Ji-.5*0X)*0X E4300 

AMSNS-=AMSNS +» 5 * (CP2(J)+CP2(J-l))*(XW(Jl-.5*DX)*DX E4310 

710 AMS-AMS+«5*<CPO(J)+CPO(J-ll)*(XW{Jl— «5*DXI*DX 64320 

IF (JW2.EO.JW3I GO TO 730 64330 

DLO=SNALP/P IR* I (Y2I JW20I-RI JW20) **2/Y2< JW20) ) **2 *R ( JW20 ) **2- ( Y24 JW E4340 
13 )-R( JW3) **2/Y2< JW3I ) **2-R < JW3 ) **2 I 64350 

DO 720 J = JW20» JW3 Ml E4360 

720 DLO=OLO+ • 5*DX* ( CP 1 1 J) +CP1 1 JF 1 ) I 64370 

ALA= ALA+DLO 64380 

ALS=ALS+OL0 64390 

AL ANS=AL ANS + DLO E4400 

ALSNS=ALSNS+DLO 64410 

730 X0AR A=AMA/ ALA E4420 

XBARS=AMS/ALS E4430 

XBARAN=AMANS/ ALANS 64440 

XBARSN=AMSNS/ALSNS 64450 

AREA=0. 64460 

JW1P1=JW1+1 64470 

DO 740 J= JW1PI » JW3 64480 

AREA=AREA+.5*DX*(Y2(J)+Y2( J-D-RI JI-RI J-lll E4490 

IF (J.LE.JW20) GO TO 740 E4500 

AREA=AR6A-.5*0X*( Y1I JM-YH J-ll) 64510 

740 CONTINUE 64520 

ARE A=2. *AR 6 A E4530 

IF (HSPAN.L6.RMAX ) AREA=RMAX**2/P IR 64540 

ARR-2./ AR EA 64550 

C LA = ALA*ARR 64560 

CLS=ALS*ARR " 64570 

CLANS=AL ANS*ARR 64580 

CLSNS=ALSNS*ARR 64590 

CAI NTO= A I NT 0*ARR 64600 

C SM A=SMA* ARR 64610 

CMA = AMA*ARR 64620 

CMS=AMS*ARR 64630 

CMANS=AMANS*ARR 64640 

CMSNS=AMSNS*ARR F4650 

PRINT 1140, ALA.ALS.AMA 64660 



o o o 


PRINT 1150* AMS.XBARA.XBARS. ALANS. ALSNS . A HANS . AMSN S » XBAR AN* XBARSN* 

PRINT 1160. SNA. CL A. CL S» CLANS » CLSNS* C AI NTO . C SMA.CMA .CMS.CMANS 
PRINT 1170. CMSNSf AREA 

PART 5 BODY SURFACE PRESSURE COEFFICIENTS 
PRINT 1180 

IF (ABSISNALP1.LT.1.E-06I GO TO 770 
IF (ABS(0MFGA0>*GT.l.E-06» GO TO 760 
PRINT 1190 

IF t IVOR. EQ-0 ) GO TO 750 
PRINT 1200 
GO TO 780 
750 PRINT 1210 
GO TO 780 
760 CHK^SNO-1. 

IF tABSICHKi.LT. l.E-06) PRINT 1220 
CHK=l.+SNO 

IF (ABS(CHK).LT.i.E-06) PRINT 1230 
IF ( IVOR. £0.0) GO TO 770 
PRINT 1240 
PRINT 1250 
GO TO 780 
770 PRINT 1260 
780 J2Pl=J2*l 
J3M 1= J3-1 
ALAMB=i ■ 

K=l 

00 1030 J= J2P1* J3M1 

JP1=J<-1 

J Ml= J—l 

JM2=J-2 

JM3=J-3 

JG= J-JW10+3 

ALAMB=BETASQ-.5*GPIDXR*(PHI( JP1.KI-PHII JMi.K H-GAMPl*FUN4C Jl 
IP (ALAMB.LE.01 GO TO 790 
AA=.5*PIR*AL0G(R( JI/RWIKI I 

PHI Ml *PH 1 1 JMi » K 1 ♦A A*$PRI ME l JMI 1 . 

IF IJ.EQ.JS.ANO.ABSTRCJl-RU-ni.LT.UE-061 PHINI-PHIC JHl.Kl 
PHI Pl=PH I IJPl »KJ AAPSPRIHE I JPII 
U=.5*0XR*( PHI PI-PHI Mil 


E 4670 
E 4680 
E 4690 
E4700 
E47I0 
E4720 
E473 0 
E 4740 
E 4750 
E 476 0 
E 4770 
E478 0 
E 4790 
E 48(00 
E 48 1 0 
E4820 
E 4830 
E4840 
fi 4850 
E4860 
F4870 
E 4880 
F4890 
E 4900 
E 491 0 
E4920. 
E4930 
F 4940 
6 4950 
E4970 
E 4980 
E4990 
E 5000 
E 5010 
€5011 
E 5020 
E 5030 
E5040 
E 5050 
E 5060 
E5070 
E 5080 
E 5090 



IF (ACHKK.GE.O.I GO TO 800 
PHIM0=PHI(J»1)*-AA*SPRIME( U» 

U=DXR*( PHIMQ-PHIM1 ) 

790 ALAMB=BET ASQ-GP1 DXR^I PHI( J»K J-PHI ( JMI.K ) J-GAMP i*FUN4< J ) 
AA=.5*PIR*ALQG(R( JJ/RKIKI) 

PHI MO=PHI < J ,K) «-AA*$PRIME< J J 
PHI M1=PHI (JMlfKl+AA^SPRIME (JMI ) 

PHIM2 = PHI( JM2tK)«-AA*SPRIME(JM2l 
U*.5*OXR*(3.*PHlMO~4.*PHIMHvPHIM2> 

IF I J .NE.JS.QR. ABSIRI Ji-Rt JM1 ) ) •GE*l.E-06i GO TO 800 
PHI M1 = PHI UM1 » K ) 

U=D XR* l PH IMO—PHI M 1 1 
800 V=.5*DXR* (R < JPi)-R( JM1 H 
IF (IW.EQ.O) GO TO 850 
IF { J.LT. JW10.0R. J.GT.JW3I GO TO 850 
IF IJ.GT.JWIOI GO TO 810 
ACHKK=ALAMB 
GO TO 820 
810 ACHKK- ALAMBU 
820 JGMi= JG-1 
JGP l=JG*l 

ALAMBU=BETASQ— • 5*GP1DXR* IPHIUIJGP1* KJ—PHIU l JGMlt K I! ♦GAMPl*FUN4l J I 

PHI Ml— PHI U (JGM1,KI+AA*SPRIME(JM1I 

IF ( ALAMBU. LE.O.I GO TO 840 

IF ( ACHKK.LT.O.) GO TO 830 

PHI PI=PHIU( JGP l t X ) +AA*SPR I ME ( JPl I 

U0=.5*DXR*(PHIP1-PHIM1) 

GO TO 860 

830 PHI MO=PH I U( JGtKI+AA^SPRf MEIJI 
U0= DXR* ( PHIKO-PHI MI ) 

840 AL AM BU= SET ASQ- • 5*GP10XR*( PHI UC JG»K)-PHIU( 4GM2 0 KI l-GAMPl*FUN4i Jl 
PHI MO=PHIU(JG,K )+Am^S PRIME 3 JJ 
PHIM2=PHIU( JGM2»K ) +AA *SPR I ME( JM2'1 
U0= . 5 *D XR *{ 3 • * P H I HO— 4 * * P H I M 1 *-PH!M2 I 
GO TO 860 
850 UO=U 


ALAMBU=ALAMB 
860 IF IIVOR.EQ.O.OR 
IF (J.GT.JCHCKJ 


.J«LT *JW10a0R.J.GT.JM2» GO TO 880 
GO TO 870 


HB=V2(J)+R( J)**2/Y2I J) 


E 5100 
E 5110 
E5120 
E5130 
E5140 
E 5150 
F 516 0 
E 5170 
F 51 80 
E 5190 
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E 5470 
E5480 
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HBP = (l*-(RlJ)/Y2(J))* <I 2)*Y2PRM(Ji-*-PIR*SPRIME(J|/Y2{J) £5540 

FUNO( J) =FUNO( J ) +S N ALP* I HBP*( VL AM < JG )**2*VTAU( JG )**2 )-* , 2« *HB+( VLAMI J E5550 
1G)*VLAMP( JG )+VTAU( JG)*VTAUP( JG) ) I /I l.-VTAUI JG)**2)*VTAU< JG)*FUNA<J E5560 
2M-SNALP*HB*IVLAMC JG)**2+VTAU< JG)**2)/( l. - VTAUI JG )**2) *VTAUI JG) *FUN F5570 
30 { J ) E5580 

GO TO 080 E5590 

870 FUNOI JI=FUNO( J ) *SNALP*GAN* ( I U .-VTAUI JGH / H L.-VT AU(JG) )**2*VLAM(J E5600 

IG)**2 »+l. /< !.-► VTAUI JG )) )*VLAMP< JG) J-VLAMCJG)*! U/< ( 1. -VTAUI JG) )**2* E56I0 

2VLAMI JG)**2 1-1 ./( l. + VTAUI JG)) **2 ) * VTAUP ( JG ) ) E5620 

880 UO=UO-FUNO< J) E 5630 

U=U-FUNOIJ) E 5640 

DRDX=.5*0XR*I RI JPIJ-RI JM1) ) £5650 

ROY 2 J= 1 • E5660 

IF IY2I J).GT.R( J) .AND. J.NE.J2) R0Y2 J=R I J) /Y2 I J) E5670 

UU=SNALP*{2.*RQY2J*DRDX*t 1.-R0Y2 J**2) *Y2PRMl J ) > E5680 

IF ( J.GT.JW2. AND. J.LE.JW3) UU= 2 .*SNALP*R0Y2J*DRDX E5681 

Y2J0=R(J) E 5690 

IF (Y2( JI-GT.RI J) ) Y2 JC=Y2 I J ) E5700 

UU S =UU*FUNAI J) ♦SMALP*Y2J0*I 1. *ROY2J**2) *FUN8I J ) E571Q 

IF ( IWING.LT. 0. AND.J.GT.JMCK.AND.J.LE.JW3) UU=UU90D( JG)*SQP.T{ l.+DR E57U 
I0X**2 *4» ) E57I2 

U1=U+UU E 5720 

U2=Ul>UU E 5730 

V 1= V— SNALP E5740 

V 2= V+SNAl P E 5750 

IF IJ.LT.JWIO) GO TO 890 E5760 

UU= SNAL P* I — 2. *R0Y2 J*DRDX+ 1 1. ♦ROY 2J **2) *Y2PRMI J ) ) E5770 

IF I J.GT.JW2. AND. J.LE.JW3) UU=-2.*5NALP*ROY2J*DRDX E577I 

UU=UU*FUNA( J)«-SNALP*Y2J0*< 1.-R0Y2J **2) *FUNB< Jl ' £5730 

IF I IWING.LT. O.AND.J.GT. JMCK. AND. J.LE.JW3) UU*UUODIJG) E5781 

U3=U+UU E5790 

U4=U0-UU E 5800 

M3=-SNALP E5810 

W4=-SNALP E 5820 

GO TO 900 E5850 

890 U3 = U E 5860 

U4=U0 E5870 

W3= SNALP E5880 

W4=SNALP E 5890 

900 V3= V E5920 

V4=V s E 5930 

IF I ABS I SNALP) «L T« l *E~ 06 ) GO TO 990 E5940 

t FI G= 0 E5950 



IF (ABS(OMEGAD).GT.1.E-06) GO TO 950 E5960 

CPI J) =-2. * ( U3«-SNALP*W3)-V3**2-H3**2 E5970 

CPO ( J )=— 2 •* I U4+SNALP*W4) ,, “V4**2-W4**2 E5980 

CPU J)=-2**(UI+SNALP*V1I-V1**2 E5990 

CP2 ( J)=-2«* (U2-SNALP*V2)-V2**2 E6000 

IF I J .GF» JW 10. AND. J. LE « JW2 I GO TO 910 66010 

PRINT 1060* J*CP( Jl tCPOl J) tCPllJ) «CP2< J) E6020 

GO TO 1030 E 6030 

910 IF (IVOR.EO.O) GO TO 1010 E6040 

CPX^CPIJ) E6050 

CPOX=CPO(J> E6060 

CP1X=CPKJ) E6070 

CP2X=CP2IJI E6080 

920 HB= V2(J)*R'( J)**2/Y2( J) E6090 

HBP=Y2PRM(J )*<!.-< RIJ)/Y2(JJ 1**2 I *P IR/Y2I J)*SPRIMFIJI E6I00 

L “JG F.6110 

BNUMl=.5*l VLAM<U+VTAU(L)**2/VLAM(L >1 E6120 

IF 1J.GT.JCHCKI GO TO 930 F6130 

GAN=BNUM1*HB E6140 

OGA NDX=BNUM1*HBP*-HB* ( «5* I 1 •— I VTAU ( L I/VLAM1L I ) **21 *VLAMPIL I ♦VTAUI L I 66150 
1/VLAM(LI*VTAUP(U) E6160 

DGAN0X=DGANDX*FUN Al JJ ♦GAN*FUNBI J I E6170 

GAN=GAN*FUNA< Jl E6180 

GO TO 940 F6190 

930 GAN=G ANO E6200 

DGAN0X=0- 66210 

940 Y2N-2.*R( Jl/HB E6220 

CNUM1=1.-VTAIHL) 66230 

CNUM2—1 - +VT AU( L) E6240 

9NUM2=SURTI l.-Y2N**2 I E6250 

CNUM3=BNUM2-VTAU(U 66260 

CNUM4=BNUM2+VTAUiLI E627Q 

BNUM3=Y2N**2/(BNUM2*HB)*VLAM(U E62B0 

8NUM4=2.*VLAM<U/< 8NUM2*H0P*2J*PIR E 6290 

ONUMl=CNljMl**2+VLAM(U**2 66300 

DNUM2=CNUM2 **2 +VLAMI L I *+2 €6310 

ONUM3=CNUM3**2+VLAM(L)**2 E6320 

DN0M4=CN0M4**2+VLAM(L)**2 E633C 

ENUM!=CNUM1**2-VLAMIL)**2 E6340 

ENUM2=CNUM2**2-VLAM(U**2 E6350 

ENUM3=CNUM3**2~YL AMI LI ‘>‘♦2 66360 

ENUM4=CNUM4**2-VL£HIL)**2 €6370 

ARG 1-2.*VLAMI L I’S'CNUMl E6380 



ARG2=2.*VLAM(L)*C NUM2 
ARG 3=2.*VIAM(LI*CNUM3 
ARG4=2.*VLAM( D^C NUM4 
THETAI-ATAN2IARG1, ENUM1 ) 

THETA2=-ATAN2( ARG2,ENUM2) 

THE TA i=AT AN2 ( AKG3 « ENUM3 ) 

THE T A4=-AT AN2 ( ARG4 » ENUM4 ) 

U1=UU-SNALP*< THETA1*0GANDX*2.*GAN/DMJM1*(CNUM1*VLAMP(L)+VLAM{L J6VT 
1AUP(L)II 

U2=U2‘-SNALP , MTKET A2*0GANDX*2 »*GAN/ DNUM2*( CNUM2*VL AMP( L l-VLAMt L }* VT 
1 AUPIU) ) 

U3=U3+5N ALP*{ THET A3*DGAN0X *2 .*GAN/DNUM3*( CNUM3*VLAMPC LI-8NUM3*HBP-*- 
1VLAW(L)*VTAUP(L)+BNUM4*SPRIME( J) ) ) 
U4=U4-SNALP*(THETA4*DGANDX+2.*GAN/0NUM4MCNUM4*VLAMP<t.)-BNUM3*HBP- 
1VLAM(L)*VTA(JP(L) +BNliM4*SPR IME < J ) J ) 

IF IA8S (OHEGAO) .GT. l.E-06) GO TO 950 
CPI J)---2.*( U3 + SNALP*W3 )-V3**2~W3 **2 
CPO ( J) = -2 • *■( U4+SNALP*W4I— V4**2-W4** 2 
CPI (JI-=-2«4(UL+SNALP*VLI-Vi**2 
CP2( J )=-2.*<U2-$NALP*V2>-V2**2 

PRINT 1060, J , CP ( J ) « CPO( J ) ,CPl(J),CP2(J I *CPX,CPOX,CP IX*CP2X 
GO TO 1030 
950 CHK=SNO+l. 

IF (ABS(CHK).GT.l.E-06) GO TO 970 
CP ( J ) --2 • *( U2-SNALP*V2-*)-V2**2 
IF ( J.GE. JW1Q.AN0. J.IE.JW2I GO TO 960 
GO TO 1000 

960 IF (lVOR.EQ.O) GO TO 1000 

IF UFLG.EQ.l) GO TO 1020 

I FLG= 1 
CPX=CP( J) 

GO TO 920 
970 CHK=SNO— 1 • 

IF ( A8S I CHK ) . GT . 1 . E-06 ) GO TO 990 
CPI J) =-Z»* (U1+SNALP*V1)— Vl**2 
IF < J.GE. JW10. AND. J.LE .JW2I GO TO 980 
GO TO 1000 

980 IF tIVOR.EU.O) GO TO 1000 

IF (IFLGtEQ.il GO TO 1020 

I FLG= 1 
CPX=CP(JI 
GO TO 920 

990 CPI J)=-2* *U-V**2 
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1000 PRINT 1060, JtCPI J) 

GO TO 1030 

1010 PRINT 1060, J,CP( J),CP0(J),CP1(J)»CP2(J) 

GO TO 1030 

1020 PRINT 1060, J,CP(J),CPX 
1030 CONTINUE 

IF (ABS( ANINFl.LT. l.E-08) AM INF= l.E-08 

CPSTAR=2.*( l, -SORT II (GAMMA-1. > *AMINF**2+2. I /(GAMMA^l. ) l/AMINF) 
PRINT 1270, CPSTAR 

; PART 6 REMOTE TERMINAL OUTPUT 

BLK3=10HCP(J) 

WRITE (7,1280) BLK3 , J2PI , J3MI , I, (CPI Jl , J* J2P1 , J3M i) 

8LK 4= 10HC PQ I J ) t 

IF (IW.EO.l) WRITE (7,1280) BLK4, J 2PI , J3M 1, I , !CPO( J ), J* J2P 1, J 3MI ) 

WRITE (7,1290) OPHIMX 

C 

: PART 7 WAVE DRAG 


ORAG-O. 

J 2P2= J2+2 
J3M3=J3-3 

DO 1050 J=J2P2» J3M3 
JP1=J*1 

IF (IW.EQ.O) GO TO 1040 

DR AG= DR AG* • 39269908 *( CPI J ) ♦CP! JP L ) ♦CPO( J ) ♦CPO( JP1 ) )*( R( J ) ♦Rt JP1) )* 
1 ( R< JPD— R ( J I ) 

GO TO 1050 

1040 URAG=DRAG + . 7853 98 16* ( C P( J > +C P ( J PI ) ) *(R( Jl «-R( JPD i ♦ ( R< JP 1)-R( J 1 1 
1050 CONTINUE 

IF (IW.FQ.O) DRAG=DRAG*1.57079632*(CP(J2P1>*RU2P2)**2+CP( J3M1)*(R 

1 ( J3)**2-R ( J 3-2>**2> ) _ 

( F ( IW.FQ.L > ORAG=DRAG*. 78539816*! (CP1J2P 1)*CP0( J 2P1) l*R< J2P2f*'*2* 

1 (CP ( J 3H 1 1 ♦CPO( J 3M L 1 >*(R« J3)**2-R( J3-2I**2» ) 

PRINT 1300, DRAG 

; PART 8 PLOTTING INPUT 

WRITE (1) IWALL,J1, J2,J3,J4, JW10,JW20,JW2, JW3.KM, CPSTAR, AMI NF.RMAX 

1 , HSPAN, SNALP, SNO, SFACTOR 
WRITE (1) CPO,XW , RW , Vi , Y2, R, Si-AS,CPf CP1»CP2 
RETURN 




c 

1060 FORMAT U4,8E16.8) 

1070 FORMAT <18H SUBROUTINE RESULT////36H SHOCK WAVE AND SONIC LINE LOC 
1 ATI 0NS///3X ,lHJ,6X,5HXW( J) ,9X,9HSLAS( J.l) . 7X, 9HSL AS ( J * 2 ) . 7X„ 9HSLAS 
2( J,3) ,7X, 9HSLASI J *4) » 7X , 9H SL AS( J » 5 ) ,7X ,9H$L AS I J ,6 ) /) 

1080 FORMAT U4»7E16.8> 

1090 FORMAT <///30H PRESSURE COEFFICIENTS AT GRID POINTS /51H 1 GENER 

l AL POINTS ( COMPUTATIONAL APPROXIMATION 1/54H 2 POINTS UNDER WIN 

2G ( COMPUTATIONAL APPROXIMATION 1/23H 3 POINTS ABOVE WING /22H 

3 4 POINTS UNDER WING) 

1100 FORMAT ( /3 1 5/(8616.8) ) 

1110 FORMAT l//3I5/( 8E16.81 ) 

1120 FORMAT (/// 34H VELOCITY POTENTIAL AT GRIO POINTS/ 19H 1 GENERAL P 

1 0 INTS/22H 2 POINTS UNDER WING) 

1130 FORMAT (///24H AXIAL LIFT DI STR I BUT ION/3 7H CPU) = LIFT MINUS V 
10RTEX EFFECT /16H CPO(J) = LIFT/52H CP1(J) * LIFT MINUS THICKN 
2ESS AND VORTEX EFFECTS /39H CP2IJ) = LIFT MINUS THICKNESS EFFECT 
3/28H AINT = THICKNESS EFFECT/26H DCP = VORTEX EFFECT //3X 

4 . iH J, 6X» 5HCP ( J ) » 1 IX, 6HCP0 1 J ) , 10X, 6HCP1 ( J ) , 10X» 6HCP2 C J) » 11X.4HAINT. 
513X.3HDCP/) 

1140 FORMAT I///16H LIFT AND M0MENT/59H AL = LIFT* AM = MOMENT. X 

1 BAR = MOMENT ARM ABOUT N0SE/45H A = ATTACHED FLOW. S - SEPA 

2RATE0 FL0W/25H NS = NEGLECT SHOCK/42H AINTO * SHOCK LIFT 

3, SMA = VORTEX LIFT/29H AREA = EXPOSED WING AREA/46H 


4 

OR MAXIMUM CROSS-SECTIONAL AREA///11H 

ALA =,616 

.8// IlH 


5 

ALS = .E16 

.8//11H 

AMA =,616 

.8//) 




1150 

FORMAT (11H 

AMS 

=,E16.8//11H 

X BARA 

= , E16.8//11H 

X8ARS 

— 

1 

.E16.8//11H 

ALANS 

=,F16.8//11H 

ALSNS 

=»E16.8//11H 

AMA NS 

JS 

2 

.F16.8//L1H 

AMSNS 

= » E 16 .8//11H 

XBARAN 

=,E16.8//11H 

X8ARSN 

= 

3 

» El 6. 8/ / 1 1 H 

AINTO 

=,616.8//) 





1160 

FORMAT (11H 

SMA 

= » E16 .8// 1 IH 

CL A 

= , E 16. 8// 1 IH 

CL S 

St 

1 

f E16.8//1LH 

CLANS 

= ,E 16.8// 1 IH 

CLSNS 

*,EI6. 8//11H 

CAINTO 

= 

2 

•E16.B//I1H 

CSMA 

=, E16.8/ / 1 IH 

CMA 

= , E 16 . 8//11H 

CMS 

- 

3 

• EI6.8//I IH 

CMANS 

=,E16.8//) 





1170 

FORMAT (ilH 

CMSNS 

=,Ei6.8//llH 

AREA 

= . E16. 8) 



1180 

FORMAT I///36H BODY 

SURFACE PRESSURE COEFFICIENTS I 



1190 

FORMAT ( 48H 

CP(J) 

- OMEGA = *0 

DEGREES 

( LEEWARD SIDE 

)/4 9H 



lCPO(J) - OMEGA = -0 DEGREES ( WINDWARO SIDE J/32H CPUJ) - OMEG 

2 A = +-90 DEGREES /32H CP2 1 J ) - OMEGA - -90 DEGREES ) 

1200 FORMAT (53H CPX .CPOX ,-CPlX AND CP2X - VORTEX EFFECTS NEGLECTED // 
1 / 3X t IHJ r 7X. 5HCPI J i * 10X f 6HCP0 ( J ) *9X, 6HCPIC J) , LOX , 6HCP2 1 J I * 1 3X» 3HCPX 
2 . L3X»4HCP0X» L2X.4HCPIX , 12X .4HCP2X/ ) 

1210 FORMAT ( / /3X» lHJr 7X* 5HGP ( J ) . 10X.6HCP0I J) ,9X » 6HCPI U ) » 10X. 6HCP2I J ) / 
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E 7590 
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E 7610 
67620 
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E 7640 
F 7650 
E 7660 



D E 7670 

1220 FORMAT (32H CP(J) - OMEGA = *90 DEGREES ) E7680 

1230 FORMAT (32H CP< J) - OMEGA = -90 CEGREFS I E 7690 

1240 FORMAT <34H CPX -VORTEX EFFECTS NEGLECTED I 67700 

1250 FORMAT ! / /3X , l HJ , 7X, 5HCP ( J I , 10X, 3HCPX/) F77L0 

1260 FORMAT ( / /3 X, 1H J, 7 X , 5HCP ( J )/ 1 67720 

1270 FORMAT </8H CPSTAR-.E16.8) E7730 

1280 FORMAT MX1 AL0,3I 5/< 7E16.8 )> £7740 

1290 FORMAT <3H DPHIMX=E16. 8) F7750 

1300 FORMAT (/6H DRAG^E16.8/» E7760 

end E7770- 



r> r> o 


OVERLAY ( DICK , 2 ,0 ) 

PROGRAM TWOO 

DIMENSION CP0(120», XWI120), RW(IOO). Y11120), Y2I120), R(120)t SL 
1 AS ( 120, 6) » CP ( 120 ) , CP1( 120) * CP2I 1201 
DIMENSION TMPK200), TMP2I200), TMP3C200I 
DIMENSION NAME ( 6 1 1 LBLE1 (8 ) * LBLE2C8I 

DATA NAME/3HM = ,3HF »,3HH '** 7 HAL PH A =# 7H0MEGA =,4H06G./ 

COMMON /CALLP/ NREAD.NCASES 
YTIC=-i. 

XTlC=-i. 

Y DV = 1 0 . 

XDV-lO. 

NRE AD=NRE AD+1 
REWIND l 
RAD=57. 29577951 

READ (1 » IWALL, Jl, J2.J3, U4,JW10, JW20.JW2, JW3 , KM, CPSTAR , AMINE *RMAX f 
1 H SPAN, SNA LP,SNO,SFACTOR 
REAO (1) CPO, X W » RW» Y 1 » Y2* R » SLAS# CP, CP i,CP 2 
5/RMAX 

ALPHA- AS l N( SNAL PI 
ALPHA=ALPH A*R AD 
J2P1=J2 + 1 
J3M1=J3-1 

IF (ABS( ALPHA!. LT.l.E-081 ALPHA*0. 

OMEGA=ASIN(SNO) 

OMEGA =OMEGA*R AD 
CALL PSEUDO 
CALL LEROY 

CALL CALPLT (2. ,2-5, -31 
YSHIFT=1.0 

IF (SN0.LT.-1.E-06I YSHIFT=7.5 
CALL CALPLT (0. , Y SHI FT , -3 ) 

ENCODE (30, 240, L8L E 1(1) ) NAME <1 ) » AM INF , NAME ( 2 I ,F , NAME ( 3) ,HSPAN 
ENCODE <40,250,LBL£2(U I NAME! 41 , ALPHA, NAME ( 6) , NAME I 5) , OMEGA, NAME! 
161 

FIGURE 1 - PLOT BODY 

NC0UNT=0 
00 10 J=J2,J3 
NCOUNT= NC OUNT + l 
TMPK NCOUNT)=XW( Jl 
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F 380 
F 390 
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o o o r> o o 


TMP2(NC0UNT)=R< J) 

TMP3(NC0UNT>--R( J 1 
10 CONTINUE 

TMP l( NCOUNT ♦! )=TMP1 t'l 1 

TMP2 ( NCOUNT +1 j=TMPl. INC OU NT +1 ) 

TMP3(NC0UNT+l) = TMPl(NC0UNT4-l) 

TMP H NCOUNT +2 )=SF ACTOR 
T MP 2 ( NCOUNT >2) —TMP i ( NCOUNT +2 > 

T MP3 1 NCOUNT * 2 . )=TMP 1 ( NC0UNT*2) 

CALL LINE ( TMPl ,TMP2. .NCOUNT, L,-K>*3»«071 
CALL LINE I TMP1.TMP3. NCOUNT, 1,40,3,.C7) 
IF (HSPAN.LT. RMAX ) GO TO 80 
IF (ABSISNOl.LT.l .E-061 GO TO 20 
GO TO 80 

FIGURE l - PLOT Y2(J> VERSUS XWIJl 


20 NCOUNT=0 

00 30 J=J WL 0. JW3 
NCO UN T= NCOUNT +1 
T MP l ( NCOUNT )=XW ( J 1 
TMP 2 (NCOUNT )=Y2( Jl 
30 CONTINUE 

TMP i( NCOUNT ♦11^0. 

T MP 2 ( NCOUNT +U =TMP1 ( NCOUNT+1) 

TMP3( NCOUNT ♦1)*TMP1 (NCOUNT -HI 
T MP 1 ( NCOUNT * 2 ) = SF AC TOP 
TMP2( NCOUNT +2 J=TMP UNCOUNT >2 1 
T MP 3i NCOUNT+2 ) = TMP 1 ( NCOUNT *2 1 
CALL LINE (TMP1, TMP2, NCOUNT, 1. *0,3, .071 
DO 40 J=l, NCOUNT 
40 T MP2 ( J! =— TMP2 ( J 1 

CALL LINE (TMP1 , T MP2» NCOUNT, 1 , *0,3, .071 
IF (JW3.GT.JW21 GO TO 50 

DRAW LINE IF JW2=JW3 

TMP l(ll = XWl JW3I/SF ACTOR 
TMP2(11=Y2( JW31/SFACTQP 
TMP1(2) = XW( JW31/SF ACTOR 
TMP2(21=R ( JW3)/SFACT0R 
CALL ORAW (TMPl.TMP2.cI 
TMP 2( 1) =— TMP2 ( l 1 


F 420 
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F 560 
F 570 
F 580 
F 590 
F 600 
F 610 
F ‘620 
F 630 
F 640 
F 650 
F 660 
F 670 
F 680 
F 690 
F 700 
F 71.0 
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F 790 
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F 820 
F 830 
F 840 


one. non 


TMP2(2)=-TMP2(2I F 850 

CALL DRAW I TMPl ,T MP2 , 2 I F 860 

GO TO 80 F 870 

F 880 

PLOT YIIJI VERSUS XW(J) F 890 

F 900 

50 NC0UNT=0 F 910 

DO 60 J=JW20,JW3 F 920 

NCOUNT=NCOUNT*1 F 930 

TMP 1 ( NCOUNT l=XW( J ) F 940 

TMP2 ( NCOUNT )=Y i ( J I F 950 

60 CONTINUE F 960 

TMP 1 ( NCOUNT +1 j = 0 • F 970 

T MP 2 ( NCOUNT *1 ji = TMPl C NCOUNT ♦I ) F 980 

TMP3( NCOUNT + 1 1 = TMP l f NCOUNY+1 ) F 990 

T'MPil NCOUNT *2 J= SFACTOP F 1000 

TMP2( NCOUNT +2 ) =TMP1( NCOUNT *2 ) FiOlO 

TMP3I NCOUNT+2 ) = TMPl ( NCOUNT ♦21 F1020 

CALL LINE (TMP1,TMP2 » NCOUNT ,1, +0,3, .07) F1030 

00 70 J = 1 « NCOUNT F 1040 

70 TMP2< J)=-TMP2< J» F1050 

CALL LINE (TMPl, THP2. NCOUNT, l, +0,3, .071 F1060 

F 1070 

FIGURE 1 - PLOT SLAS(J,l) VERSUS XW(J) F1080 

F 1090 

80 DO 120 11 = 1,6 FU10 

. NCOUNT^O F 1 1 2 0 

DO 90 J= J 1 , J4 F 1130 

IF (SLAS(J,II ) . LE o 0 . ) GO TO 90 F1140 

IF (SLAS( J, II I.GT.YSHIFT. AND. SN0.LT.-1.E-06) GO TO 90 F1141 

NCOUNT = NCOUNT *1 F1150 

T MP1( NC OUNT ) =X W( J ) F1160 

TMP2( NCOUNT )-SlAS(J«ll) F1170 

90 CONTINUE F1190 

TMP1< NCOUNT 41) =0. F1200 

T MP2( NCOUNT+l>=TMPl(NCOUNT+l 1 F1210 

TMP3(NC0UNT+1)=TMP1C NCGUNT+1 ) F1220 

TMPK NCOUNT +2I=SF ACTOR F 1230 

T MP2I NCOUNT + 2 > = TMP 1 ( NCOUNT +2 1 F 1240 

TMP 3 (NCOUNT +2 1=TMP II NCOUNT+2 ) F1250 

IF 1SNU.GT.-1.E-06) GO TO 110 F1260 

00 100 J=l, NCOUNT F1270 

100 TMP2( J)=-TMP2< J) F1280 


100 TMP2( J)=-TMP2< J) F1280 




o o r> o o 


110 IF (NCOUNT.EQ.O) GO TO 130 

CALL LINE l TMP i *T MP2 » NCGUNT* 1 »— l «4t .071 
120 CONTINUE 

130 YSHFTN=-YSHIFT-1 • 

YSHFT l=Y$HFTN- .25 
YSHFT2=YSHFTN-.50 
YSHFT3=Y5HFTN-.75 

CALL NOTATE 1 0. , YSHFT I * . 1 4*25HS0NIC LINE AND SHOCK WAVE*0. ? 25) 
CALL NOTATE (0. , YSHFT2 f . 14.LBLEI HI .0. * 30 ) 

CALL NOTATE (0. , YSHFT3* . 14* LBLE2 1 1) .0. *40 I 

IF (ABS(SNO).LT.l .E-061 GO TO 140 

TMP i( U=XW( JW1QI/SFACT0R 

TMPK 2)=XW( JW3I/SFACT0R 

TMP2I 1)=0. 

TMP21 2)=TMP2( 11 
CALL DRAW (TMP1 ,TMP2,21 
140 IF ( I WALL .Eti.O ) GO TO 150 
T MP 1 ( 1 1 — — 1 . /SFACTOR 
TMP1(2) = *2./SFACT0R 
TMP2(1)=RW( KM) ASF ACTOR 
TMP2I2)=TMP2(l) 

IF (SN0.LT.-1.E-06I TMP2 1 1 )=~RW< KM I /5FACT0R 
TMP2I 2 > =T MP2( 1 1 
CALL DRAW < TMP l »T MP2 » 2 1 
150 CALL NFRAME 

CALL CALPLT <2. .2. 5, -3) 


XPG=5 . 

YPG=B « 

TOP BN 0 = - • 8 
BOT BND~+ . 8 
SK I P=4* 

SCF= + .2 

YMO VE=SKI P— CPSTAR/SCC 

IF I ALPHA . EQ.O. ) GO TO 200 

IF (ABSI SNOI.GT.l oE— 06 8 GO TO 200 

F IGUR C 3 » CP VERSUS X 

NCOUNT=0 

DO 160 J=J2Plt J3M1 


F 1290 
F 1300 
F 1310 
F 1320 
F 1350 
F 1360 
F 1370 
F 1380 
F 1390 
F 1400 
F 1410 
F1420 
F 1430 
F1440 
F 1450 
F 1460 
F 1470 
F 1480 
F 1490 
F 1500 
F 151 0 
F 1520 
F 1530 
F 1540 
F 1550 
F 1560 
F 1570 
F 1580 
F 159 0 
F1600 
F 1610 
F 1620 
F 1630 
F 1640 
F 1650 
F 1660 
F 1670 
F 1680 
F 1690 
F 1700 
F 1 7 1 0 
F 1720 
F 1730 



n n o o o o 


NCGLNT=NC0UNT«-1 
TMP 1 ( NCOUNT ) =XW ( J ) 

TMP21 NCOUNT )=CP( J) 

TMP3( NCOUNT ) =CPQl j) 

IF ( T MP2 ( NCOUNT I . LT.T OPBND) TMP2(NC0UNT)=T0P8ND 
IF ( T MP3 ( NCOUNT )• LT.T CPB NO I T MP3 (NCOUNT )=TOPBND 
IF (TMP2( NCOUNT > .GT.80TBND) TMP2I NCOUNT) =BOTBND 
IF (TMP3INC0UNT). GT.BOTBNDl TMP3( NCOUNT l = BOT BND 
160 CONTINUE 

TMPI { NCOUNT +1 ) =0 • 

T MP 1 ( NCOUNT +2 ) =SCF 

TMP2( NCOUNT +1 )=BOTBND 

TMP3( NC0UNT+D -TMP2 1 NCOUNT *1 ) 

T MP2 ( NCOUNT +2 ) = -SCF 

TMP 31 NCOUNT +2 ) =T MP 2( NCOUNT+2) 

CALL AXES (0.0 *0.0*0., XPG,TMP1( NCOUNT* II * TMP l( NCOUNT *21 »XTIC « XDV* 1 
IHX, .14, — 1 ) 

CALL AXES (-.5,0..90.,YPG,TMP2(NC0UNT*l),TMP2(NCOUNT*2i,VTlC,YDV,2 
I HCP » • 14 »+2 ) 

ORAM LINE FOR CPSTAR 

CALL CALPLT (-.500,YMOVE,-3) 

CALL CALPLT I .5,0. ,2) 

CALL CALPLT ( +. 500,-YM0VE,-3 ) 

CALL LINE ( TMP1 , TMP2 , NCOUNT, 1 , +1 ,3, .081 
CALL LINE I TMP1 ,TMP3 , NCOUNT ,1, +1,4, .07) 

IF (HSPAN.LT.RMAX ) GO TO 170 

DRAW LINES FOR JW10 AND JW3 

TMPI(1I=XW( JW10I/SCF 
TMP 1(2) =TMP1( 1 ) 

TMP2 ( 1 )=0. 

TMP2( 2) = • 5 

CALL DRAW ( TMP 1 ,TMP2 ,2 ) 

TMPl(ll=XW( JW3I/SCF 
TMP 1( 2I=TMPI( I) 

CALL DRAW ( TMP l , T MP2 , 2 ) 

IF (JW2.EQ.JW3) GO TO 170 
TMP1(1)=XW( JW20I7SCF 
TMP 1( 21 -TMP l ( l ) 

CALL DRAW (TMP1 ,TMP2, 2) 


F 1740 
F 1750 
F 1760 
F'1770 
F 1780 
F 1790 
F1800 
F 18 10 
F 1820 
F 1830 
F 1840 
F 1850 
F 1860 
F 1870 
F 1880 
F 1 890 
F 1900 
F 1910 
F 1920 
F 1930 
F 1940 
F 1950 
F 1960 
F 1970 
F1980 
F 1990 
F 2000 
F 2010 
F2020 
F 2030 
F 2040 
F2050 
F 2060 
F2070 
F 2080 
F2090 
F 2100 
F2110 
F2120 
F2130 
F2140 
F 2150 
F2160 
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170 CONTINUE 


C 

C 

c 


180 


CALL 

NOTATE 

(0., 

CALL 

NOTATE 

(0., 

CALL 

NOTATE 

<0., 

CALL 

NOTATE 

(0., 

CALL 

NFRAME 


CALL 

CALPLT 

(2., 


14 


* 26HBQ0 Y PRESSURE 01 STR I BUTION ,0. > 26) 

• 13HIN WING PLANE* 0* « 13 ) 


FIGURE 2 


CP VERSUS X 


TMP2 (NCOUNT) =TOPBND 
TMP3( NCOUNT )=TQPBND 
T MP2 I NC OUNT ) = BOT 8 NO 
TMP3I NCOUNTI=BOTBND 


NCOUN T=0 

DO 180 J = J2P1 * J3M1 
NCOUNT^NCOUNT + l 
TMPll NCOUNT)=XW( J) 

T MP 2 ( NCOUNT l-CPl ( J I 
TMP3 < NCOUNT >=CP2 ( J) 

IF (TliPPI NCOUNT! .LT.TOPBNDi 
IF ( T MP3 ( NCOUNT ) .LT .TCPBNO) 

IF (TMP2I NCOUNT) .GT.BOTBND) 

IF (T MP3 (NCOUNT). GT.BOTBND) 

CONTINUE 

TMP l( NCOUNT H)«0. 

TMPlt NCOUNT +2 ) =SCF 
TMP2(NCOUNT+1)^BOTBNO 
TMP3I NCOUNT ♦ 1 )=TMP2( NCOUNT *1 ) 

TMP2I NCOUNT+2! =— SCF 

TMP3 INCOUNT+2 1 = T MP2 ( NC OUNT +2 I , 

CALL AXES (0. 0,0.0, 0..XPG.TMP1 (NCOUNT+i ! »T HP 1 (NCOUNT *2 1 » XT 1C* XOV * 1 

1 CALL^AXES | (—.5 *0. ,90. ♦ YPG, TMP2 ( NCOUNT+l ) ,T MP2 ( NCOUNT *2 * »YT I C, YDV » 2 
1 HCP , • 14* ♦2) 


DRAW LINE FOR CPSTAR 


CALL CALPLT (-• 500, YM0VE ,—3) 

CALL CALPLT (.5.0. ,21 

CALL CALPLT (♦. 500,- YMOVE , -3 ) 

CALL LINE (TMPI ,TMP2, NCOUNT, l,*i .3, .08! 
CALL LINE ( TMPI , T MP3 , NCOUNT ,1, ♦1,4, .07) 
IF (HSPAN.LT.RMAX) GO TO 190 

DRAW LINES FOR JWXO AND JW3 


F2170 

F 2 1 8 0 

F 2190 

F2200 

F 2210 

F2220 

F 2230 

F2240 

F2250 

F2260 

F2270 

F 2280 

F2290 

F 2300 

F2310 

F2320 

F2330 

F 2340 

F 2350 

F2360 

F 2370 

F2380 

F 2390 

F2400 

F 2410 

F2420 

F2430 

F2440 

F2450 

F 2460 

F2470 

F 2480 

F2490 

F 2500 

F251Q 

F2520 

F 2530 

F2540 

F 2550 

F2560 

F 25 70 

F2580 

F2590 



ono 


TMP141I=XW4 JW1Q)/SCF 
TMP 14 21 = TMP 14 1 1 
TMP2411=0. 

TMP24 2) = • 5 

CALL DRAW 4 TMP 1 ,TMP2 ,2 > 

TMP14.H=XW4 JW3 )/SCF 
TMP l( 2>=TMP141> 

CALL DRAW 4 TMP1 ,TMP2 » 2 > 

IF (J«2.E0.JW3) GO TO 190 
TMP 14 1I=XW( JW2QT/SCF 
TMP 1 4 2) = TMP 1 4 1 ) 

CALL DRAW 4 TMP1 , T MP2 .2 1 
190 CONTI NUF 

CALL NOTATE 4 0 . » - 1 . 25 * .1 4» 26H800Y PRESSURE DISTRIBUTI0N»0.t26l 
CALL NOTATE 4 0* ,-l .50. . 14* 17HIN SYMMETRY PLANE f 0.*l7l 
CALL NOTATE 4 0. • - 1 . 75 1 . 1 4 » LBLE 14 11 1 0 . ,30 ) 

CALL NOTATE 40. ,-2. 00* . 14, L6LE24 II » 0.*401 
CALL NFRAME 

CALL CALPLT (2. .2. 5, -31 
GO TO 230 

FIGURF 4 -CP VERSUS X 

2 00 NCOUN T=0 

DO 210 J-J2P1»J3M1 
NCOUNT= NCOUNT* L 
TMP 1 4 NCQUNT I =XW4 J 1 
TMP2 4 NCOUNT 1=CP 4 J 1 

IF 4 T MP2 4 NCOUNT ) .LT.TQPBNDt TMP24 NCCUNT 1=T0PBND 
IF (TMP24 NCOUN T1.GT.B0TBND1 TMP2 4NC0UNTJ =BOTBNO 
210 CONTINUE 

T MP 1 4 NCOUNT* 11 = 0. 

T MP l ( NCOU NT *2 1 = S CF < 

TMP 24 NCOUNT* l > = BOT8NO 
TMP34NCOUNT+ll=TMP24NCOUNT*ll 
TMP 2 4 NCOUNT +2 ) =- SCF 
TMP3 4 NCOUNT *2)=TMP24 NCOUNT ♦2 ) 

CALL AXES 4 0.0*0.0»0.tXPG»TMP14 NCOUNT *1 ) » TMP1 4NCOUNT+21 » XT IC bXDVb l 

1 CALL l AXFG* 4-.5,0. , 90 . , YPG* TMP2 4NC0UNT* i I ,T MP2CNCOUNT+2 1 , YTIC , YDV.2 
1HCP »• 14**2) 

C 

C DRAW LINE FOR CPSTAR 


F2600 

F 26 1 0 

F2620 

F2630 

F2640 

F2650 

F2660 

F2670 

F2680 { 

F2690 

F 2700 

F 2 7 1 0 

F 27 20 

F2730 

F2740 

F2750 

F2760 

F 2770 

F2780 

F 2790 

F2800 

F 2810 

F2820 

F2830 

F 2840 

F2850 

F 2860 

F 2870 

F 2880 

F2890 

F2900 

F2910 

F2920 

F2930 

F 2940 

F 29 50 

F2960 

F 297 0 

F2980 

F 2990 

F 3000 

F 3010 

F 3020 




non 


c F3030 

CALL CALPLT ( - . 500. YMO VE ,-3 > F3040 

CALL CALPLT (.3.0. ,2) F3050 

CALL CALPLT ( + . 500.-YMOVE ,-3 ) F3060 

CALL LINE (TMPL.TMP2, NCOUNT. 1.+1.3..C8) F3070 

IF (HSPAN.LT. RMAX) GO TO 220 ' F3080 

F3090 

DRAW LINES FOR JW10 AND JW3 F3100 

F3L10 

TMP1( U=XW( JWLOI/SCF F3120 

TMPI(2) = TMPin.) F3130 

TMP2(1)=0. F3I40 

TMP2(2I*.5 F3150 

CALL DRAW ( TMP L , T MP2, 2 i F3160 

TMPK 1) = XW< JW3)/SCF F 31 70 

TMPH2)«TMPltl) F3180 

CALL DRAW < TM PI , TMP2 , 2 ) F3190 

IF ( JW2.E0. JW3 I GO TO 220 F3200 

TMPK D=XW( JW20I/SCF F3210 

TMP 1< 2)-TMP 1(1) F3220 

CALL DRAW (TMPl .TMP2 .2) F3230 

220 CONTINUE F3240 

CALL NOTATE (0 .♦ -1 .25 , . 14, 26HB0DY PRESSURE Dl STR IBUTI0N„0. , 26) F3250 

CALL NOTATE < 0. l . 50 ,. 14.L8LEH U ,0. ,30) F3260 

CALL NOTATE ( 0 » , - 1 .75 , . 14. LBLE 2( 1) • 0. , 401 F3270 

CALL NFRAME F3280 

230 IF (NREAD.EQ.NCASES) CALL CALPLT (0-.0-.999) F3290 

IF (AMINF.GT.l. ) Jl=Jl-2 F3300 

IF (AMINF.GT.l. I J4=J4+2 ' " F3310 

RETURN F 3320 

c F3330 

240 FORMAT (A3,F5.3,2X,A3,F6.3,2X, A3.F5.3, IX) * F3340 

250 FORMAT ( A 7 , f 6. 2 . 1 X , A4 , 2 X , A7.F6. 2 • IX . A4 .2 X ) F3350 

END F 3360 •*' 


* 



APPENDIX B 


SAMPLE INPUT 

The input for a sample case is presented in this appendix. This 
case involves a lifting configuration composed of a parabolic-arc body 
with a fineness ratio of 10 and a wing with a strake and a swept trailing 
edge. The flow is separated at the leading edge. The free-stream Mach 
number and angle of attack are M^ = 0.98 and a = respectively. 

The computation is made in the wing plane. 
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SNAME 


J1 = 18, 

42 * 30, 

43 = 80, 

44 * 92, 

45 = lM. 

FAC = 0.126+01, 

KM - 50, 

ROOM * 0.0, 

A * 0.1E+01, 

8 = 0.1E+01, 

III ALL m 0, 

9 0 . 0 , 

OMEGAO = 0.0, 

ALPHAO * 0.46*01, 

HSPAN = 0.36*00, 

AMINF » 0.986*00, 

GAMMA = 0.146*01, 

IR =0, 

RC = 0.4E*01, 

UMAX = 0.5F-01, 

RN * O.2E+01, 

JS * 80, 

RS » 0.0, 

4M1 =42, 

JM2 = 70, 

JH3 . = 78, 

JMO » 49, 

IMING - it 

81 = 0.2E+00, 

62 = 0.8391E+00, 

DELI * 0.1E+00, 

DEL = 0.1E*00, 

IVOR = 1, 

I DIR = 4, 

EPSI = 0.5F-05, 

SUB = 0,136+01, 

SUP = 0.85E+00, 

IHAX * 200, 

SFACTOR * Q.56+00, 

$ENO 


jj 


Preceding page blank not nuifi© 


APPENDIX C 


SAMPLE OUTPUT 

In this appendix the output for the calculation described in 
appendix 3 is given. The printed output is given first, and then the 
plotted output is given in figures 7, 8, and 9. 
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SUBROUTINE START 


ARRAYS AND PARAMFf Eft$ USgD IN COHPUTATICN 
J * AXIAL GRID INDEX » X ■* RADIAL GRID INDEX 


K 

RW(K) 

RrfftlKI 

AXOCR (8 1 

A8AR1R) 

1 

2 . 0408 l 6236-02 

0. 

9.999917545-01 

0. 

2 

4. 16466667E-02 

0. 

9.999656276-01 

7 .604166676-01 

3 

6.3 8297872 6-02 

0. 

9. 99919343--01 

8.439716316-01 

4 

8 . 6956 521 7E-02 

0. 

9.998603176-01 

8.85B69565E-01 

5 

ummiiNi 

0. 

9.99755c«,55-01 

9. 111111116-01 

6 

1. 3o363o36E-01 

0. 

9.99632021F-01 

9.280303036-01 

7 

1.62790698E— 01 

0. 

• 9. 95+7565 76-01 

9.401953366-01 

8 

1.9 04 761906 -01 

0. 

9. 99 28 2406 s - 01 

9. 4940 4 762 E-01 

9 

2. 195121956-01 

0. 

9. 99 C4 72886-01 

9 . 56639566E— 0 1 

10 

2 .50 0000 GO 6-01 

0. 

9.9 8 76 4 7 9 2 6- 01 

9.b250000ue-0l 

11 

2.82C51282 S -0L 

0. 

9, 9d428564E-fll 

9.673659676-01 

12 

3.157894746-01 

0. 

9,980313146-01 

9.7149122*6-01 

13 

3.51351351 S -0L 

0. 

9.975646595-01 

9.750519756-01 

14 

3. 888888895-01 

0. 

9. 9701 8939E-0 1 

9.781746036-01 

15 

4.2 3571429E— 01 

a. 

9.963889656-01 

9.309523816-01 

It 

6,705882356-01 

0. 

9.956438556-01 

9.834553626-01 

17 

5.15151515B-01 

0- 

9.947865116-01 

9. 8 5 73 5 750 6 - 01 

10 

5.62500000=-01 

0. 

9.937934216-01 

9.878472226-01 

19 

6. 12903226 E-01 

0. 

9.926440906-01 

9.8981324*6-01 

20 

6. 66666667 s -0 1 

0. 

9.913144825-01 

9.9 16666676-01 

21 

7. 241379316-01 

0. 

9.897763116-01 

9.934318566-01 

22 

7.8571 42B6F-01 

0. 

9.879901806-01 

9.95125670E-O1 

23 

8. 51651 G52E-01 

0 * 

9.85934520E-01 

9. 967 7 933 B E-01 

24 

9. 2307 6923 E- 3 1 

0. 

9. *35442796-01 

9.983974366-01 

25 

1. Q0COOOOO S +OO 

D. 

9.80 769303E-0 l 

1. 000000006 +00 

26 

1.083333336+00 

0. 

9.775423276-01 

1.301602566+00 

27 

1,173913046+00 

0. 

. 9.737824776-01 

L.003220616+OOL 

28 

1,272727275 + 00 

0. 

9.693921606-0 1 

1.304870136+00 

29 

1.380952385*00 


.9.642531905-01 

1.006568146+00 

30 

1.50CO0O00S+00 

0. 

9.582219636-01 

1 .008333336 + 00 

31 

1.63157 8955 +00 

c • 

9.511234655-01 

I. 0101 8o7b6+00 

32 

1. 777 77778 c +00 

0. 

9.42 74386oT-01 

1.0 1215278E+00 

33 

1.941176476+00 

0. 

9.32821463E-01 

1.0 1426025E+00 

3V 

2. 125000006+00 

0. 

9.210357396-01 

1.016544126+00 

25 

2.333333216+00 

0. 

9.069945026-01 

1.019047626+00 

36 

2.571+23576+00 

0. 

8. 902193135—0 1 

1.02182540E + 00 

37 

2. 8461 S3 £56+00 

0* 

8. 70 1301036-01 

1.02494d02C+00 

38 

3.166666676+00 

0. 

8.4t0309555-Cl 

1. 028508776+00 


39 

VO 

VI 

42 

43 

44 

45 

46 

47 

48 

49 


3*545454555^00 0. 

4.00000000E>00 0. 

4* 55555556E*00 0. 
5-X50000006+00 0. 

6 • 1 42 0 57 1 45 >0 0 0. 

7*333333335400 0. 

9.000000 COE i-OO 0* 
i. L 5 000 OQOfH-O l 0. 
1* 566666675+01 0. 

2* 40 000 0 00 E >01 0. 

4* 90QOCOOOE *0 1 0. 


fl.m00564r-0l 
7.023969306-01 
7*400785106-01 
6* 914705076-01 
6.33 178544E-01 
5* 65 26 95 40 E-01 
4, 87509156E-01 
4. 00 4 1 3440 E- 01 
3. 054293096-01 
2.04538607E— 01 
1. 0 2 01 9786 6—0 1 


1* J3263403E+00 
I.O375000CE+00 
1.043360436 VOC 
l.05059524Etdb 
i* 059 8G066E+0Q 
1*071 969706*00 , 
1* DBS 808.896 +00 
!• 1141304X^00 
1* 156028?, 76 H)0 
i* 239563 -^5+OQ 
1.489795926+00* 


POOR QDALI1Y 


6 

7 

8 
9 

10 
.11 
12 
13 
1+ 

15 

16 

17 

18 

19 

20 
21 
22 
23 
29 

25 

26 -i 

27 -3 
26 -4, 

29 -o 

30 -a 

31 -1, 

32 -1, 
3j -l. 

34 -1. 

35 -1, 

36 -2. 

37 -2. 

38 -2. 

39 -3. 

40 -3, 

41 -9. 

42 -5, 
<43 -5 
■V4 - 7. 
45 -a. 
4o “1. 

47 -1. 

48 -2. 

49 -4. 


CONNK) 

000000002*00 
395333235-01 
55028369E-01 
141304355-01 
888888896-02 
196969Y0E-O2 
.480066456-02 
-059523010-02 
* 3 3604336 r -02 
.750000006-02 
263403265-02 
850877196-02 
494802495-02 
1 8253 9636-02 
90476 150E-02 
654411762-02 
.426924966-02 
,2152 7778£-a2 
,018675726-02 
333353336-03 
,560144506-03 
,670129876-03 
220611926-03 
.602564106-03 
0421 70942-K, 
,6025o410c-03 
22061 192E-03 
E7012967E-0 3 
5681 4450 5-03 
33333333«-03 
■ 0 186 7 57HE-Q2 
215277782-02 
426024966-02 
654411765-02 
904761906-02 
LB2S3968E-02 
494802492— 02 
85037 7196+0 > 
263403362-02 
750000006-02 
3360-3365— 02 
0595 23818-02 
5>)00»-452-02 
1969 6 5 706 - 02 
888986872-02 
14130 Vi;’-' 01 
5 . 0’ ..',92-01 
595oli j jr-O. 
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1,4 '7*1* &'•!)%■• ■<)% 1 ,43 7 1 V ;.'l -0, -I *>t4180t7 e -0, -1.1043 J606E *04 -1.2642/1 C-iC— 0»> - 1.2 3*.<al CJfi-C, - 1 , 2 * ,510866-04 

-1*2721 7%/rf!;-!?4 -t. .*'/-»_ / >22. .*}> * l, 2 3*>4 7/4 71 * 0. - l . 7 % 7f. 5 2 7-S -04 -i .2 3, ; 0'*34; • i.22 • •*;' ;)** - 1 .2.'t)*iVi231 -04 

" 1.2U1 160 ; -C, -1 . 19JI93125-7, - l .1 604 .*9806-04 - 1 . 1 716 79305 04 - 1. 16476/ 50* 0, 1 2 4, O' -04 " l .1 66 .4 39il* •'•> 

•*1, 16687 752*. -04 — 1 * 1 70‘.H5 »ir -'?% 1*19 4445 711*0. 


43 18 93 

2,102502766-05 2. 920 *>902 9i -06 5. 732243246-05 '4*S»6795S«-05 5.323006368-04 6.119064426-05 6,89259727,6-05 

8,389967128-06 9.100.*,**)* 05 4. 7‘‘ *|/*'>36E-».H 1 42/1 . 4t - o'l 1 , 1075979jE— 02 1 . 1 (,46 v ;6 r O'* 1*214'' I'.U 4F 24 

1.304/83196-04 1.34S15021- -.14 1. /‘.VO-rSoi-Ui 1.3937791"! 0, 1.4*41/1(73" <U4 1.42(1 4i -84 t„',2l'.'',lV»;i“ 04 

1 .39638**07*— 04 -1,171284218-04 1*33 7800698-04 t*'256tt8W«i!6-U* i. 2962/18/6-04 1,1 0806*43* — 24 1,13 !f,90 16E -l»4 

9.72861 7B‘7f*6;. U.O 74 »? ! HI I1‘ 7.0*, ; 34-;H*. -«i :> 6 *«;»/.*• 7276-OS i. 604493996-05 -j.Ol.JixlEaf 2*7 6347942-// 

-1.11329 30 ,t -0/ -2. 7428,48,: -Hi - 4. !J«V /*> ‘ J‘: U -. . 7-,0;*,-> *• -.s c -6, '950 *88oE-0v - 7.VH5M /Of-.) 1 / • : .901621 7 ?»• -05 

-8.986444 7 /• -64 -6.9 17-/1/ d: -3» - /. J ) // J .U7 1- O. . . I 1%-. /- 4t 0'/ U r /6?29 ) 77 f-05 - 8»if 347rt(73i' i , ; - U9 4..l‘i27341*'t: *05 

-*9,%541.J *7 -04 -0,r,6 5 , *,54 0/ - '.875414-,7t-0.' -4.)" 7 )'u 5608— 0'/ --1.032987696.-/V - 1. 0 37-1 7-/2t— .74 i.OJj) j’)4 1 3 ; :'*04 

-1,41003/04-4*84 . 9 , 03,4 1 .) ‘1--09 .9 4 i‘*2 338-07 , 430, 5060(- -04 -9*60545283:. - (/■: -5,4')02 .6881-05 - 9. 33-0978/ 22 -05 

-9, 2 0 60 5 7 6, E-03 -9,150513*0*: -O'* -9. t260«</>3t -2') 


44 1 8 ’72 

2. I C 06 9 7 508-05 2.698942706-05 3.274T6256E-05 3,863665641*05 4.44H3U30S-05 5,02951 j 1-^,0/ 5, 6052 38736-05 

6. 73049841 8-06 7 • 27% 1 92434-05 7.80031543E-05 0. 30',fc866£f-05 8, 787918096 "0/ V,24040,»i?0|05 V.1 6070 U14-05 

1.0334794 It -C4 1.06316 224r-04 1.09297451E-04 1.112670476-04 1.12663599E-04 1,1348 9 8 5 31.-04 1.1371309 71-04 

1, 122154404— 09 l .10813191'. 04 1,08 2953686-04 1.353396346-04 1. <1175*7696-04 5. Vif 5>.C48‘ -05 9,2 7S974o6E-C5 

8. 1 5969 6451-05 7 .521791 •/41 -0, 6, 836204 141.03 1. . '14301'/ S/.f -05 */. 13719449!>05 4,04. 7 7/31 *05 2.,' 34693871 - Oi 

5*076341 765-06 -6.40/ 34456- - Jo - 1 • 7 * ’* 7 19 ji 8-0% 2 . 774476305-Cv •‘3*643598**08—05 -4.4ji ... 0 3.-t "’.*5 , ul’ ) J 5 1 •* ) 1. ‘3 5 

“5. 7246 7862' -0/ -.5**391 5766*1. -Oi 6.0C?6441‘. r — 5/ ifcvO, 79/ E-05 -6.337704921,06 -o,‘/37-j'i50/f-J6 6. /t'/-;*,-^* • 05 

-7,2 383717*,-' 0) *7.%322l86 3 ;: *') 7,*/Hn38 1 '/.- • 05 -* 7./.98C4752E *:.5 -/. 76e3ol 041-05 -7.7/ >t. ( ' w * • 7. 792 19,625-06 

-7.6 7O68 566L-05 ••/. >•634' 2119 0' - 7.-4? 17 7i)6%£ -7. .'/ U 7?10t-0» */ ,J lU16384t-0 -6.''.*97(, 59/1 -05 c. 7%, **i8m-05 

-0.370233518-35 -e. t946 1 3207 05 ••» . 1329624*1-03 


45 ta 92. 

- 1.829977361-05 2.2 3729 47 7E-05 2.646667681-05 2 .05 7/1015E-05 3.466893418-05 3,8 /9!*92e 3£-05 4.<*JU0?/ Jt*: 05 

5.O9041 >91 5*05 5,4 7 363886F -Oil - 5.34790139E : -o5 6.221673398-05 6.S6e7S5 US-05 6. 8 96, 73 55". -1.5 f. 193499 /1 1—05 

lit 2340 1 85E * C5 /. 9214101 7f!35 0,1 111 22781 -74 0.259901908-05 8-36X897378-05 8.420'/'. 133* -05 .8-V166l789f.-iV 

8.32tt«0dlbE-C$ 8.204440/02-0/ 8*0J4ir'4/;;.-O5 7. Jlfr;43 738-05 7, 573101928-06 ' .7, >>? 1-»J9* ibiVetr -.OS 

6*07 *07 9i -05 5,60% 3 72076-115 ».U0 7312/E-c ■ ,.5453,424*-.-0(: ';>464t-0 j 3«'0.! •/* 4 0 * --'I 

n.6422 18940 -34 *7.584/31 7‘/--J7 -6.42073086* -5-. -1.345;r3542?-Ci -1.5'24 76,11: -05 -2.* .t***, / ; :!. -0* • 3.0i.i7i.'i: '-, 'i'J 

*3 .69 7U078 J i 1 -05 -3,9172)9/41 - 1.1*3 •• , .1,6 1 9622 “05 34806905 1 -J5 -4,'5'ijC -*5‘i -4.757: /•. I 7‘"--«>5 t-489»l7i>.; J5E-S<> 

-5. 323004'. 4--0?, -5,4/sOB432 e -U> -5 022 7ar.lt- ■// .»-.<5»«4l»Ml*05 *5.1 84/5,1 it-' 0 * •/.60'J'**.'*"C-O5 >-5.) ) ‘;/.‘,:,59E-,'5 

-5 ,49951 1 OuE -05 -s, 37353 i.l F-05 2123 l i-l/L-Oi -5.06 /5 : 7l01t-0'/ 4.eBlOC263t-0> -4.681,76 7,1-05 H4., '.o • >•>• <••* 

-4.03021865**05 -3.6C79S7‘i7"-J5 .S.689*8458F-«B - ; r 


.6 18 12 

1.34,875ri, p 05 1 .6O472d47E-05 1 . .16 7099656-05 2 . 13148 844F-05 2,39 7181646-05 2,663^5 4 4‘.F-05 2 . )285 7 7 ?/4 -05 

3,4514774 ■): 70586415? -05 3.953158490-05 4. Wl4l%78f -05 4.4ie57159E-05 4.t:i25920EE-05 . 4 .a jl2 7%8SE- OS 

5. 1 7421 7 180-0/ 6. 3 14 362,1 '•-03 5 .4 3 104 10 4E-0S 5. 322405 75? -15 5.53 710456F-O3 6.i.2 3 105 !— 35 E,t3 liEuE." -i;5 

5,555220i'7r--C5 5. 4678%23/F -0/ 5.35111401E-03 ‘.203*26381-05 5.C233836JE-OS 4.81/2b231L 05 ' 4, '**) i 3 3ll2fc 05 

4. 023742 7OF-05 ). 71/538088-0$ 5,331574268-06 3.0162 1 oil- -0? 2 . 6 lb/b8 *4E-0i 2.179171/06-05 l,ItHH'36-0i 

7.6265887 .1 ‘86 2*44<.6o90J/-O6 - 1.6 ,'<.,-W.9C-C& ’t,0341 )2')3‘. -06 ! , 01 ‘325557E • 06 - 1, 192*040 74-05 - 1 .72434325F-54 

-2,25664 71;- - 0 / -2.4 7o>2 vSST -J3 -2 «*.t-, li-iiUi -05 -2. 1,1.343* 1* ... • Wl ««-/.iv7c-8> J. 13 1 *u 3 »J. > s,‘6/lb«fc-0» 

-3 .6665? 10>F -03 -3. 6701 3510*.- <5 -3. 74*26- »5E-Ci -3.793)22*1/ 03 - 3 ./*)•', 764 14/ 05 -3. 7'J, *8 • 03 ' 3» /%•)' 2.1193 *0, 

—3. ' 6638517 -OH -J.SC34726t--! j -3. 321 ,1 01TE -03 -S.242660/«n.-t5 -4.008610291 00 -2.521 56 73-2 - U. :. . , . 'U' 7l t • 05 
-2.3647 6276- -05 *? . 169.4 7 1,1*' -05 -'.97057667f-05 


2.9,08/1121-04 
?*E2o743 7C=-C« 
1 .9*1533 31 0e-0% 
-1.5,2367421 -04 
-5.338699481-04 
- 7* l 8347 7011—04 
-2.6?, 495556-04 
-5, 13521 8836-05 
-2. 1213729 86— 05 


1.956J3152E-04 
2.4107488OE-O4 
1 .8951% 72SE-04 
-8.2 71602036-06 
• j.tOmKHritt 
-4.49,6404?g-04 
-2. 136213 7-E -04 
-I.1U 38<2 !E-04 
-9.2 66/9/061 05 


1.323603466-04 
1.9S9460U3E-04 
1.017230284-04 
7.457461631-05 
-1.3011 36 53F -04 
—2 .661 600 567— 04 
-i .6% u 27872 E , t )4 
-1.293 79028E-04. 
-1.2G9J0B49E-04 


9,65796941 E-05 
1 .6 71722356-04 
1 .6 51 7936 9£— 04 
1.0ct20;3fiF-0% 
-•) .4251/11587-05 
-1./2' ■.',«,(!? *04 
-1,2 2/2'- 2.031 -04 
162225! -04 
1 .1 / *25.-iV%2 -04 


7, 6 50699 71 E -OS 
i.i'- 7/2ta9E-C4 
1.41 -.12171.-04 
< ,0 .(544446-04 
3*Ci091228E-O& 
-(i.8-,/5936*l6-uS 
-*- .2 'l 569501 -05 
; Il '>’)56*04 
-:/.0 8?Of)/16E-E>5 


6,1 73147766-05 
■1 *004 3004 16-04 
1. 133156 82C-04 
6 .746 7/ 056E-05 
1, 686612 52E-05 
'>44 62 337136*05 
7.0*1 7006 7.-0/ 
~7. /%o05U64t-05 
■ 9-65471 3 77E-05 


4.697 /550«t-‘O5 
7.4 734029 7E-Q5 
0s2u ,266-05 
* .-.020*2607-05 
l.f-H 1 1 31 f 05 
, : 1 - •' 77 1 - ■) ; 

-5.1> .48 ,397 0/ 
-5.49 :5* ‘ 736-05 
- 4*2 8/3 7405F-O5 


3.191* 2747E-05 
5.O1251651E-05 
£ .607 >276 OE—03 
**.31«.')rt-*5%E-05 
l».'J»>il5-'»26«05 

-2*01095,446-05 
-3. . .'0 369330-05 
■3.6.i : .'.24i6E-J5 
-2-557 ■:!•■■, Ifc-OS 



1 1 t >. 

il.lVWsW '=6 1. 1)641 75'.E-CS UffH&'trtf-Oi 1 »90 J240T5F 'OS l.JSi 754 7*6-05 1-702121266-05 

1,9 .71001 J-.-O-j -'.1406311506-36 2.310630086-05 2.515366361 -US 2.553853621-05 2. 6650 3’ 516 -05 2.7 7 7G9V408-05 

2.4 ?05»?B6-03 ■‘.059789656-05 5.115610956-05 3. 1655619 76-05 7.200926206-05 3. 223207086-05 3.222643556-05 

3. 174096115-05 '3.125560136-05 3 ,35609 1 636-05 2. S69865C9E-05 2. 56623409E-35 2.7457291 1C-05 2,609051956-05 

2.299723996-06 2. 111059156-05 1.918656666-05 1.712024096-05 1.492183136-06 1.255533CS6-05 1 .007173646-05 

5.033929096-06 2.527160646-36 5.883333076-08 -2.339529466-06 -4 . 630 526546-06 -6. 77694212E-06 -8 . 7502 940d6-06 

-1, 215057616-05 -1. J610261JE-05 -1.494695436-05 -1,618224096-05 -1.732228996-05 -1.836052956-05 -1.929117566-05 

-2. 077353505-05 -2.129022596-05 -2.164928396-05-2.184973136-05 -2. 185411 356-05 -2, 1 78033726-05 -2.153049466-05 
-2.059861166-05 -1.993326346-05 -1.916022 786-05 -1.827441266-05 -1.729140166-03 - 1.622227046-05 -1.507900106-05 
-1.261799746-05 -1. 1325491 8E-03 -1.000873486-05 


48 18 92 

3.721591246-06 4.351099006-06 4.990284226-06 5.637485116-06 6.290527386-06 6.9467H573E-06 7.60239563E-06 

8.900060036-06 9.532442276-06 1.014766706-05 1.074059236-05 1.130585936-05 1. 1 8379685E-05 1.233136236-05 

1.318000296-05 1.352463076-05 t. 380948966-05 1,402003196-03 1.418220836-05 1.423240486-06 1.426794026-05 

1.404608776-05 1 .381642536-05 l. -.350730086-05 1.311951706-05 1.265467746-05 1.211517516-05 1.150417086-05 

1.0CB3805 76-05 9.203822206-36 8 . 4301481 06-06 7.525453446-06 6,569706026-06 5.565889786-06 4,527213066-06 

2.409524596-06 1,350663229-36 3.030345506-07 -7.230065 756-67 -1.716364756-06 -2.6aS7O5806-O& -3. 5ol8807 1 6-06 

-5.175633536-06 -5.893235336-06 -6.554805846-06 -7.162137616-06 -7.714600806-06 -8.208706756-06 -8.642*23896-06 

-9.315133276-06 -9.546175-36-06 -9. 7055 550Bc~Ce - 9, 79350000E-0O -9.811217306—36 -5.760471696-06 -9.643333986-06 

-9.223898536-06 -3.9223u30/P-06 -d. 570806056-06 -a. 1 7042583E-C6 -7.725?7977c-06 - 7.241649956-06 -6.723004856-06 

-5.602905376-06 -5.012077026-06 -4.407926576-06 


49 10 92 

9.206308666-07 1 .0 7424 1 83E- 06 1.230307746-06 1.388406546-06 1.547991606-06 1.7O8392O5E-06 l .8680 1562E-06 

2. 185991236-06 2.343613486-06 2.491022716-06 2.635951446-06 2.774079896-06 2.9040547BE-06 3.024509486-06 

3.231452636-05 3.315334116-06 3.384525156-06 3.43791560E-06 3.474509676-06 3.493444436-06 3.494006586-06 

3.437992966-06 3.380B5S41E-0o 3.3^4237916-06 3.209342376-06 3. 093567936-06 2.960506566-06 2.809941756-06 

2.46031 725E-06 2 . 2 63656 74E-06 2.054213216-06 1.833228816-06 1.602265886-06 1.362531936-06 1 .1 lo >02576-06 

6.1 3 79 4 0 005-07 3.6160102 56-07 1. 113481296-07 -1.349595796-07 -3 . 7 52960923-0 7 -6.077050516-07 -8.304083016-07 

-1.24 1044816-06 - l. 426948336-06 -1. p9892d61E-06 -1.756359966-06 -1.898489186-06 -2 .02465235E-06 -2. 134304706-06 
-2.302134886-06 -2 .3 5961 d996-0a -2.39941 531E-06 -2,42i6B921E-U6 -2.426766906-06 -2.415104646-06-2.337260206-06 
-2,28591 778E-06 -2, 2140914 66-06 - 2. 1 2943 8506-06 -2.033012066-06 -1.925921916-06 -1,809374746-06 -1.684564456-06 
-1.415258496-06 -l. 2733*0246-06 -1.128384836-06 


velocity potential at grid points 

1 general points 

2 POINTS UNDER RING 


1 18 92 

-4.714822246-04 -5.32944092E-04 -6.053209846-04 -6.907018406-04 -7.918016366-04 -9.122343326-04 -1.056953356-03 

-1 .450888736-03 — 1.7 273436 8F “03 -2. 09 1636936-03 - 2 .b0298876E-03 -3.4 10425036-03 -4.976780486-03 -6.6<(036007E-03 

-9.728691306-03 -1.10543 7196-02 -1.220396586-02 -l .316655116-02 -1.392636646-02 -1.4511 1591.6-02 -1 .489 U977E-02 

-1.507638405-02 -1 .488992756-02 -1,452257636-02 - 1 .398050251 -02 1.327721406-02 -1.242294416-02 -1,142814486-02 

-9.035845476— Od -7.682791026-03 -6 . 2767 5439 E-03 -4.580746971-02 -2.(664580826-03 - 2. 3 23672831-03 - l. 07 1 68891E-03 

1.8 15706906. 03 3.510861416-03 5.349831146-03 7.297959316-03 9.321718936-03 1.139132026-02 1 .348007246-02 

■1.76081506=402 1. 957691 69F-02 2. 1364 95986-02 2.066629476-02 1.883421896-02 1.732089266-02 1.593288106-02 

1.313761086-02 1 . 16434 71 7E-Q2 1.00602654=402 d . 3930 <0906-03 6.8*7550036-03 4.93911o4o6-03 3.343083816-03 

2.034923886-03 1 .69096.058-03 1.435483006-03 1 . 236235486-03 1.075596 786-03 9.431188226-04 8,321531776-04 

6.580865746-04 5.894275286-04 5-3042001BE-0, 

1 l 39 . 

-1.507857596-02 -1.507638406-02 - U48764077E-02 -1.448636636-02 -1 .39435246H-02 - 1.32423 7 7 5F-02 -1,23871 1 96E-02 

- 1.023265336-02 - 8.96 8 1 2 6 0 36 - 03 - 7.60 7 7 7 9 8 8 6-03 -6.170 7 5 4 5 1 6- 03 - 4 . 7 4 7 3 3 2 5 3 6- 03 - 3.4 6 2 8 6 9 2 6 6-03 - 2. 1831 13 82E-03 

8.010990356-04 2.4 87989116-03 4.263356566-03 6. 05 >150526-03 7.88180..67E-03 9.697923066-03 1,151012596-02 

1. 493920816-02 1.608131986-02 1.668930456-02 1.686818056-02 1.664112816-02 1.59993499E-02 1.475991866-02 

1.172038396-02 1.030274176-02 8. 80896270E-03 7.225396406-03 5.55616187E-03 3.632681006-03 2.104241426-03 


2 IB 92 

-4.712521776-04 -5.326554336-04 -6.049535256-04-6.902259926-04 -7.911724406-04 -9. 11380367E-04 -1.055754686-03 
-1.448137456-03 -1.722618356-03 -2.082185736-03 -2.578279636-03 -3.313C56716-03 -4.443982866-03 -5.679246886-03 

-8.052470316-03 -9.098665706-03 -1.0019B062E-02 -1.080308726-02 -1.14405570E-02 -l.I)276123t-02 -1.226207756-02 

-1.247261676-02 -1.23473 584F-02 -1.207462426-02 -1 . I*o053276-02 -1 . 1 1 11 56 176-02 -1.04 3553966-02 -9.64044653E-03 

-7.699379846-03 -6.593607666-03 -5.442743556-03 -4.308308246-03 -3.265386698-03 -2,304097286-03 -1.325168026-03 

1.038574466-03 2,4 7408b 7 76-0 3 4.057401146-03 5,759969165-03 7. 553361 366-03 5. ,,11576236-03 1,131115676-02 

1.512891458-02 1.700022628-02 1.87Q73522E-02 1.785834406-02 1 ,61626926.6-02 1.471969S1F-02 1.341703126-02 

1.094211975-02 9 .67795 3016 -03 8. 3 73964 736-03 7.038569566-03 5,657153896-03 4,399507756-03 3-243580956-03 

2.025145886-03 1 . 6862 >ao9E-03 t.«?78d089F-O3 1 . 234628536-03 1.074520506-03 9.423545216-04 8,315862676-04 

6.577451396-04 5.891539036-04 5.30197250:— 04 

2 l 39 

-1.244355126-02 - 1 .24726 lo76-02 - 1. 234735846-02 -1.205339966-02 -1.163777968-0,; - 1.108999776-02 -1.041478896-02 

-8.6735 80916 -03 -7.645210156-0 3 -6.333654616-03 -5.35d24lor.6-03 -4.20491966E-O3 -3.1 H63V58E-03 - 2.1 82108875-03 

2. 54C462 1 26-04 1 . 6 7716802c -03 3 . 1 929 508 7 6-03 4 . 7342341 7f-U3 6 .329524406-0 1 7.9 2 5664 19E-03 9.524d8605t-03 

1.262967025-02 1.36 41 30 746-02 1.416505458-02 1 . 4 28220616-02 1.403053436-02 1.342887586-02 ! .24 59 7705=-J2 

9. 9 1 769990=— 03 0.*8dl 950<jt-Q3 7.4)8028366-03 6.114030086-05 4.778444916-03 2. 427229248-0? 2,159582606-03 


3 18 52 

-4.708125316-04 -3.3210291 a=-04 -6.042516946-04 -6.3931757*6-04 - 7. 899 720826-04 -9.097526406-04 -1,053473826-03 
-1.442944018-03 -1.713806498-03 -2. 003143256-05 -2. 53341 80 26-03 -3.196528626-03 -4.100269156-03 -5,092577326-03 
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-4« 39718 935E-06 -5 . 18251 362F-06 -5.06729272E-O4 -6.6cB1984lE- 
-l.J322719'i=-03 - 1 ,5669322 12-03 -1.796966265-03 -2.0853696,16 
-3. 967976065-03 -4.322409206-33 -4.67 1563 536-C3 -4.5S7139426' 
-5.35752 3365-03 -5 . 8~29d 190F-03 -5.00650596E-03 -5.63766356E 
-6.1668d33-.E-03 —2. 6732686 IE -03 -3. 16895377E-03 -2 . 6 702(to28u 
-3,2 1 666253---06 6.3 7056 752=-0.. 1 .23602662E-03 2.22632763c- 

6.0 099 78815-03 9.174624346-03 9. 523493 19E-03 8,807579106- 

5,2 1 21 b 06 52-03 . 572 352575-03 3 .926 1 1 1 29F -03 J , 3 108*.»02E- 

1 . 7 39J 200 IE-03 1.51 7,36 806E-03 1.32667 169E-03 1.160589936 

6.607569n>E-08 5 .75** >20557-04 5 . 18990 5 75F-06 

10 1 39 

0. 0. 0. 0. 

0. 0. 0. 0. 

0. 0. 0. 0. 

6.662337066-03 7.733373276-03 u. 687632085-03 8.45885/946- 

5-604331 766-03 5 .0 241 62 796-03 6.36d522656-03 2.3/OB7355E 


-06 -7.67S16958E-06 - 8.79o69 753J-06 -1.012140716-03 -1.168195135-03 
-03 -2.520368 16E-03 -2.92352860.E-03 -3.3529 75976-03 -3. 79281593E-03 
-03 -5.o79 5B566E-0J -5.9286QIo2F-03 -6 . 1 20622 305-03 -6 .25 1 80 15 IE-03 
-02 -5.912870/66-03 -5.660772636-03 -3.300367686-03 -4.894392336-03 
-03 -2.37575o78=-03 -2.05533690^-03 -1.565305216-03 -9.66396553F-06 
-03 2.55632604E-03 6. 7 J92302 3E-0 i 5.9621 7032E-03 7.262609106-03 
-03 8.693507146-03 7.83 J65443E-03 7.053720706-03 6.332697196-03 
-03 3, 103 133176-03 2.724955276-03 2.380496386-0 3 2.08476563E-03 
-03 1.033587216-03 9.140360705-04 8.102551586-04 7.212564616-04 


0, , 0. 0. 0. 

0. a. 0. 0. 

2.485517776-03 3.556824846-03 4.75393445E-03 5.927760106-03 

•03 8 ,334 U 2 726— 03 7 . 7 9 6 2 8 1 8 36- 0 3 7. 16 34 6 6 0 6 6- 0 3 6.5 S49073BE-03 

■03 3.472498346-03 2.9 39664326-03 2.56148642E-03 


•04 -7.605751456-04 -8.705298566-04-9.998093195-04 -1.152222546-03 
03 — 2.41544729F-03 -2. 7 70842816-03 -3 . 1 6*. 1 16596-03 -3 .5 5oJ 76966-03 
■03 —5*262 207 586—03 -5.4910 35196-03 -5.66892768E-03 -5 .792092 5 IE-03 
■03 -3.505434666-03 -5.2o050C6?fc-03 -4.953713696-03 -4.581814576-03 
■03 -2.281&946JE-03 ~1.9863o2 166-03 -1.605969336-03 -X. 12697 769E-03 
■03 3.236308536-03 4. 336 353 59E-03 5.48691518,6-03 6.738531496-03 
03 7.96CUr,d7E-03 7. 19u904 756-03 6.50OO24756-03 5.848109806-03 
03 2 .024912186-03 2. 551352046-03 2. 2685 71 51 E-Q3 1.99177B05E-03 
03 1.02464/51186-03 9.05860038E-04 B. 0398 5646E-04 7. 16343259E-04 


0. 0, 0. 0. 

0. 0. 0. 0. 

0. 0. 4.336353S9E-03 5. 4889 t 51 8E-03 

03 7. 96 8 808 86 E— 03 7,398719126-03 6.765809726-03 6.175806676-03 

03 9 .330 25024E— 04 7. 117842276-04 1.743290436-04 
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“4. 5 65? 19046-04 -5 • 143^32486-04 -5 . 81 82 090 76-04 -6 . 60576872 E-04 -7 .52521202E-04 - 0. 599 720 12E-04 -9.85 7269446-04 - l., l 230 04486-03 
- 1 ,30 578,9?*: -03 -1.537710466-0 3 - 1 ,742219966-03 -2. 310975716-03 -2. 3 1 2 99 765E-03 -2. 64 1 1 0455E-O3 -2.93 784461 E-03 -3. 34 1 7840 IE-03 


-3.6923 78266-03 -4 .02985446 ;-03 --.34557,4536-03 -4.632070906 
-5.4 3603 1696-03 -5 .4 4-. >1 44 76 -0 3 -5. 39737 ‘U2E-03 -5.292511146 
-3.90179 7 03 "-03 -3. 45555211 =-01 -2 .99937 li0'-03 -2.544720266 
-5.694082156-04 3.40173 9406-04 1 . 1 2 7904 21 F-0 2 2.003894616 

7. 3 8 14 85 33 5-03 5 . 36459 555 r -03 8, 31 3oil822--r03 7.96478622c 

4.317924776-03 4 . 22056 03dt-O2 7 . *94605356-03 2.980fJ6oHE 

1,6902353 15-03 l.43iu22',n -03 1 .30 2898 746-03 1.146656535 

6. 3 6 15U 54QE-04 5.7171 748 76-04 5. 159191636-04 


03 -4.882477566-03 -5.092925526-03 -5.257434596-03 -5.372814566-03 
03 — 5. 12 9699 24 E— 03 -4.50882 0 12 f-03 -4.63055235E-03 -4.291867946-03 
03 -2.191383926-03 - 1,9 1291 524£-03 -1.559921 136-0 3 -1. 1 159J945E-03 
-03 2.956336566-03 3.999504946-03 5.0U496000E-03 6.23573 11 7E-03 

-03 7.2/52 7699E-0J 6. 6022fce02r-03 5. 982448416-03 5 .3 9 706656E-03 

-0: 2.529147786-03 2.392261576-03 2.164126806-03 1.420507176-03 

-03 1.012.1 /4695-03 8. V64 37 171 6-04 7.96 7038U56-04 7.1 0605588 6-04 


11 l 39 

0. 0. 0. 0. 0. 0. 0. 0. 

o. o. o. o. a. o. o. o. 

0. 0. 0. 0. 0. 0. 0. 0. 

6.23573 1 1 76-03 7. 38148503E-03 8.364595556-03 8.312685226-03 7 .620238456-03 7.020258036-03 6.395063606-03 5.824422546-03 

5.276839096-03 4.719577906-0 3 4.090 7 79 215-03 3 . 2o243928E -03 2. I 45236636-03 1.549063016-03 1 .6 760 7 1946-03 

I • 
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-4. 5.- >90599 16 -04 -5 . 0930 2 26 3F-04 -5 . 76 1 3 5890F-04 -o . 5 3 3759066- 04 -7.432816386-04 - 8.4 7949234 6-04 -9.698424566-04 -1 . 1 11 7 76446-03 

-1.2 76796616-03 -1.44,7866165-03 -1.68 7264586-0 3 -1.925696 726-03 -2.21 1218606-02 -2.509219 106-03 -2.82 1880 14E-03 -3.1405613 26-03 

-3 . .56:6? 7bl -C3 ~2. 760349216-03 -..046499576-03 -4. 306t0362E-03 -4. 53 5347096-03 -4.727740 136-03 -4.8 7954643 6-03 -4.9872154 76-03 
■-5.04 78/ »<; f. ..>} -5.0590307 85-0 3 -5.01691 4386-03 -4 . 92: 299 i 5 6-02 -4.780426766-02 -4.5 01012206-0 3 -4. 328406886-03 -4 . 02 1 68o02E-03 

-:.66=<9JH’:-. ->i;\ ■■,■‘...>4 .69‘2rf — 03 - 2 . 2 3 65 99 80F- 0 3 -2 . 4 .2520 592F -03 -2. 1 02 7 7881 6-03 - 1.8 30 5 9463 6-03 - l . 50 755 3 *.4 6-0 J - 1 .0943599 7E-03 

-5, 3965 747. .4*0, 1 . 1 Op '2 51 5*' -J 5 6 . 9 /B. 10 746-04 l . 8 1 6 7 4 6 2 8 6 - 0 3 2.7 1 2 2 8 6 1 56- 0 3 2.6 8 2 5 2 9 6 26 - 0 2 4. 7 1 9 8 2 9 2 8 6 -0 3 5.8 1 0 4 2 3 4 2 6 - 03 

6.91429 7156-62 7.3 8 VI •* 209*’ - 0 3 7.692192906-03 7.238433966-03 6.638532676-03 6.046059236-03 5.496312695-03 4.9 /6534656-03 

4. 5404 l 766-03 3.35,“iS6lHV-03 5 . 280 1 5 7826-03 ? . 6 3 1 7d8 34 6-02 2 . 1 980 7 7 0b6- 03 2 . 2 58094 1 26- 0 2 2.069406426-03 1 .85181486t-03 

1.840914236-03 1 . .'-329200>- 03 1.27 7371 766-03 1. 127920256-03 9. 98 13 16 b46-04 8. d5 700965 6-09 7 .0 8 33 7654E-04 7.03974 1676-04 

6.3Cd2311SE-04 5. 6 73o058i*- , u * >.123338256-04 
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-4.486704276-04 -5 ,0457058 l F-04 - 5.696095 785- 04 -6.451469996-04 -7.32 7653165-04 -8. 343943 7 86-04 -9 . 52 11 5 779F-04 - 1 .088 30 7 78E-03 

-1.245402256-02 - 1.425577:56-03 - 1.630 35 2516-03 - 1 . 359726225 -02 -2. 1 1 1730086-03 - 2.2 U20 72276-03 -2.66 4536066-03 -2.951869426-03 

-3.2:8589965-03 -3.511500965-0 3 -3 . 76996 1 ->35-03 -4.00 59 ;8d6r-03 -4.214332 696-03 -4. 190 356576-03 -4.5 3009408 5-0 3 -4 .6 30 1 652 26-03 

-4.68/736426-03 -4 . 7004940 16-03 -4.666524026-03 -4. 434551076-03 -4 .4 5 3679 54E-03 -4.27:504406-03 -4.049152736-03 -3.7651408:6-03 

-3.438211506-03 -2 . 27397 1 8. >1 -03 -2 . 635268 1 95 -03 - 2 .3 1 059 78 76-03 -2. C 14612 996-03 - 1. 75 825 12aF -0 3 -1.4 500 76885-03 -1 .0644 76685.-03 

-5.958775C21 -04 -4.28 751 2317-08 5.928 14 5 194-09 1.20421,3016-03 2.0d7409526-03 3.4 12559916-03 4.39004 2806-03 5.4 19790306-03 

6.4 70965546-02 7.393225006-03 7. 1 1444 1976-03 6.67488 5386-03 6.16 1544006-03 5.6 Odd 8 1 4 1 F-03 5 . 1 05920b96-03 4 .6 3863446F-03 

4. 168451S-J--03 3.67454o5eE-03 3.15 1 1 12926-03 2 . oib 726 26 6-03 2 .26 5 294656-03 2. 16330 3 568-02 1.985682736-03 1.7 661 14996-03 

l. 591399016-03 1 . 4 1 1 *.35c 8E -0 5 1 . 24999c 01 6 - 03 J . 107 36 5076-03 9.324770146-0. 6.735871636-04 7.7d8147826-04 6. 9 63 7 7 3 7CE-04 

6.246320005-04 5.62345l94=-0. 5 .08 18 1 1256-0. 


14 18 - 92 ; : 2.; r 

-4.4381 14256-04 -4.98587916F-04 -5.52175937F-04 -6.358206996 
-1.211697676-03 -1.381057056-03 -1.571714056-03 -1.783203766 
-3.03059 1556-03 -3.278796465-05 -3.512562175-03 -3.72657 158= 
-4.3519= 270E-C2 -4.265562816-03 -4.336700186-03 -4. 2629? t 7 76 
-3.2253447 JF-C3 -2 .39273 12. =-33 -2 .d 2 788992F-03 -2.19969520 6- 
-5. ■>3 7258326-04 -8.164/68186-05 5 . C6 7806416-04 1.1681 7720b 

6. 3 506642 3 3-w> 6. 137356.06-03 6. 376 441 236-0 2 6 . 1 PI 7c 35 06 

2.305592 706-O3 2.4 72 98-4 06-03 2.02 7231816-03 2. >>02518516 

U 54 1 3 J185F -»5 t .373 543286-03 1.220351456-03 I.CB591175?- 

6. 1766570,05-04 5. 56333 1 52E-04 5.0340 34356-04 


■04 -7.209644756-04 -8.192535036-04 -9. 325 1 78 73E-04 -1.06269998E-03 

-05 -2.013574106-03 -2.259062 176-03 - 2. 5 14472 516-03 -2 . 7 73 75582E-03 

C3 -3.91605/646-03 -4.076785786-03 -4.205058116-03 -4.297679046-03 

-03 -4.146436336-03 -2.98:58 /996-03 - 3.7 7 5409506-03 “3. 521 7690C5-03 

03 —1 . 92527 7 776—03 - 1. 1 7a4094t 6 - 0 3 -.1 .3 8 8 6 72 96E-03 -1,0278:9956-03 

03 1.899506576-03 2.697420826-0: 3.56 =2 757 IE-03 5. C59902Q36-03 

03 5. 717195036 -03 5. Uv433c4f-02 4. 72 7781426-03 4 .320036396-03 

■0: 2.274038441 -03 2.39 :0< 6246-05 1.910399696-0 3 1 . 7 23 102C9C-03 

03 5.65! 738535-04 8.600 332265-04 7 . 83052466 6-04 6 .6774 L450E-04 


ORIGINAL PAGBJB 
OF POOR QUALOT 



is h 5 ; 

-4.3027242a c -O4 
-l.i (■srsjisc-oa 
-a.6i63!:43aE-03 
-4.0373415C6-O3 
-3.0 2 06 0 2 4 03-03 
-5.622324516-04 
5.C04OiO21 5 -U3 

3.6 6l52546i~C3 
1.992022875-03 
6,096995966—04 


“4.9179t9r')F-0‘f 
-l. 33-503595-03 
-3.040365365-03 
-4.051292O5F-03 
-2.713284715-03 
-1. 080 50 4c 35-0- 
5.82836£63 r -03 
3.285761045-03 
1.333934315-03 
5.500144345-04 


-5.5376a2526-04 
-1.511540016-03 
-3.271619 7SE-03 
-4.024634366-03 
-2.3975 99186-03 
4.36770391E-04 
5.606071586-03 
2. 903842576-03 
1.189984766-03 
4.979388626-04 


6.253289786-04 
-1. 7Co25426E-03 
-3.465414156-03 
-3.96 1978 55E-03 
-2.091363C2E-03 
1.05085876E-03 
5 . 73123 23 IE-03 
2.542c 30926-03 
1.060862456-03 


7.07 3557446—04 
-1.516714446-03 
-3.637451866-03 
-3.856341096-03 
-1.835019266-03 
1.732556896-03 
5.315821 166-03 
2.248543326-03 
9.461650876-04 


-6.024765936-04 
-2.139647466-03 
-3. 782873236-03 
-3.709158376-03 
- 1.5974039?t-03 
2.479 179246-03 
4.71 797 1B2E-03 
2.024336866-03 
6,449 7 756 0E— 04 


-9.110305626-04 
-2.370667276-03 
-2.90125595E-03 
-3,520334566-03 
•1.323397 396-03 
3.290074836-03 
4.359262896-03 
1.839883456-03 
7. 560076646-04 


1.024986056-03 
-2.604692616-03 
-3.986605216-03 
-3.2500J7b4E-03 
-9.862774676-04 
4. 16287 1006-03 
4.01918609E-03 
1.661966236-03 
6.779907496-04 
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-4.21994 **776— 04 
-1.13776011** -03 
-2.652329926-03 
-3. 741502 C9--03 
-2. 8 24 3 5 -*016-03 
-5.639**! 3 LI* 5 -04 

4.7 064 40006-03 
3. 441358916-03 
1.441011506-03 
6. 007090896-04 


-4.841190106-04 
-1.285002026-03 
-2.8543122 36-03 
-3.755323136-03 
-2.550434966-03 
-1.242968356-04 
5.315720696-03 
3 .07 13 5 1506-03 
1.293214856-03 
5 .425672 196-04 


-S. 443199536-04 
-1.449997366-03 
-3.0449e648E— 03 
-3. 734122016-03 
2.260802556-03 
3.802256 726-04 
5.135394596-03 
2.717395256-03 
1.157405546-03 
4.917212396-04 


-6.136062446-04 
-1.628949986-03 
-3.220182656-03 
-3.676523356-03 
—1.9 83 65 1836-03 
5.498923066-04 
4.915424306-03 
2.394907216-03 
1.034906716-03 


-6.931011556-04 
-1.821035806-03 
-3 .376049 586-03 
-3.581532906-03 
-1.743802886-03 
1.584021616-03 
4.673967556-03 
2.129146616-03 
9.254710296-04 


-1.840242006-04 
-2.023394546-03 
-3.509079746-03 
-3.44856 1226-03 
-1.515466796-03 
2. 260 768 735-03 
4.578428346—03 
1.940527356-03 
8.283586066-04 


-8.876462836—04 -1 .005 204 12E-03 
-2. 232302636-03 -2.443467226-03 
-3.616130196-03 -3. 694413846-03 
-3.277485156-03 -3 .068649046-03 
-1.255617276-03 -5.405239906-04 
3.038318256-03 3.852580756-03 

4.208936P'?-03 3.821711556-03 

1.7 7096 7*166-03 1.601734886-03 

7.425769196-04 6.670478916-04 
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-4.24 91 66 516-04 -4 .7550461 3E-04 -5.337655726-04 -6.005904386-04 
-1.087730586-03 -1.235725996-03 -1.387231106-03 -1,551368348-03 
-2.477216936-03 -2.659108686-03 -2.830923276-03 -2.588981386-03 
-3.4 624193 86-03 -3.475752926-03 - 3.457370946-03 -3.405963266-03 
-2 ,t3579b 496—03 -2.388517776-03-2.127578386-03 -1.876361996-03 
-5.40149oo5--C4 -1.323306536-04 3.349299586-04 8.62828076E-04 

4.246098764-03 4.81930 7036-03 4. 6B6900 796-03 4.513748346-03 

3.218361136-03 2.885601996-03 2.3868680/6-03 2.J0435654E-03 

1.390833906-03 1.251093546-03 1.123037006-03 1.007118946-03 

5.906149436-04 5,341660806-04 4 . 846 601 83E-04 


-t. 765491 566-04 - 7,633655096-04 -6.623678546-04 -9 .734064876-04 
-1.726443046-03 -1.909953846-03 -2.098723236-03 -2.289107106-03 
-3.129842846-03 -3.250341126-03 -3.347601496-03 -3.419050196-03 
-3.320527386-03 -2.200484486-03 -3.045721566-03 -2.856741046-03 
-1.651654036-03 -1.432772856-03 -1.186041096-03 -8 .9 1352732E-04 
1.451576206-03 2.099925096-03 2.805385456-03 3.561977196-03 

4.32C624126— 03 4.159065946-03 3.869888446-03 3 . 546660696-03 

2.063676056-03 1.874989726-03 1. 70265140E-03 1.541574596-03 

9.025874766-04 8.101139856-04 7.276962396-04 6.548339956-04 


-4. 169769636-0** -4.658345546-04 -5.220418406-04 - 5 . 86224209F-04 
-1.0 5579 7 166-03 -1.183810176-03 -1.3233 7100E-03 - 1.47397 3326-03 
-2.309996226-03 -2.47351056F-03 -2 .o2B0 1019F-03 -2.770257156-03 
-3.19846 1946-03 -3.211028966-03 -3. 194955906-03 -3.14097O44E-O3 
-2.454276176-03 -2 .231723396-03 -1,997159136-03 -1.769111066-03 
-5.123031236-04 -1.337361926-04 2 .98952 1686-04 7.875804826-04 

3.997738ol 6-03 4.342816366-03 4.258860146-03, 4,120327946-03 

3.000044506-03 2.720026786-03 2.450768126-03 2.201962956-03 

1 .33 8 73 7 796-03 1.20742 5436-0 3 1.0869 70406-03 f. 774530816-04 

5. 793361 01E-04 5. 24732276E-04 4.767412 596-04 


-6.592556436-04 - 7.4 197942 LE-04 -8.352003556-04 -9.396489676-04 
-1.632860546-03 - 1.79904397E-03 -1,969401106-03 -2.J.4082673E-03 
-2.65 7190 74E-03 -3.005563576-03 -3.09396396E-03 -3.158830396-03 
-3.072132116-03 -2.96388036E-03 -2.824137366-03 -2.653525936-03 
-1.558642416-03 - 1.3494760B6-03 -1.115206146-03 -8,360453296-04 
1.333033076-03 1.93446188E-03 2.538821046-03 3.287892666-03 

3.965656496-03 3. 7935541 76-03 7.553544326-03 3.281808645-03 

1.903422396-03 1 .799 125206-03 1.633524216-03 1. 480696006-03 

8.786845916-04 7.901 79B91E-04 7. 112910596-04 6.412689526-04 

i 

■■ 1 . v ■ 
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-4.081127746-04 
-1.01206 5576-03 
-2 . 149 82 9*^5 6 -03 
-2.448287 356-03 
-2.2 792 50266-03 
-4.8 10573486-04 
3.655290336-03 
2. 7 66973.4 6-03 
1. 285143036-03 
5.667896 746-04 


-4.55 195 090F-04 -5.090389 396-04 -5.704561986-04 -6.399850506-04 -7. 1B355 1856-04 -8.061911906-04 -9.039957156-04 

-1.1 30 38 2866-03 -1. 258536 716-03 »1. 39 5625676-03 -1.540232146-03 -1,690440476-03 -1.843910936-03 -1.95798971E-03 

-2.2965003 76-03 -2 .435081666-03 -2. 5t272L2fc6-03 -2.676736356-03 -2.774S4874E-03 -2.853809336-03 -2.912365896-03 

—2.95987 8 1 3F-0 2 -2.945669446-03 -2,904406606-03 -2.63 53 84976-03 -2.73/908456-03 -2.612008226-03 -2.458394216-03 

-2. C 79 55 3 95 6 -03 -1.868990096-03 -1,66 173315 6-03 -1.464887396-03 -1.26572617E-03 - l. 045,664 IE-03 -7.842897376-04 

“1.297686056-04 2.705652066-04 7. 221837426-04 1.226300996-03 1.782213676-03 2.38619258E-03 3 .027097406-03 

3.890889876-03 3. 85197555E-03 2.754531586-03 3.62097637E-03 3.460986 32E-03 3. 257720426-03 '3.028051786-03 

2.545001786-03 2,310443386-03 2 .09 10223 5E-03 1.893274626-03 1.719325756-03 1.362486196-03 1 .4184 1368E-03 

1.16203 84 76-03 1.048973486-03 9.458694916-04 0.525069096-04 7.68490955E-04 6.932864156-04 6.26271835E-04 

5.141841696-04 4.678262676-04 1 


20 18 92 

-3.982622006-04 
-9.666353216-04 
-1.9 9603 3 86 *--03 
-2.710787596-03 
-2. 1,1033 320 6-03 
-4.4654 9505- -04 
3.312065106-03 
2. 5 794515 0"- 03 
1.2297,30336-03 
5.528916256-04 


-4.433782436-04 
-1.07556 68 76-03 
-2.127244796-03 
-2. 721253426-03 
-1,9 3157 46 56-03 
-1,21870 292**-04 
3 ,470166586-03 
2.37110553F-03 
1,114756416-03 
5.024378356-04 


-4.948519256-04 
-1. 192842346-03 
-2. 2511 78816-03 
-2.ro B55oaae-o3 
-1. 742722536-03 
2.482006026-04 
3,466.10 8 556-03 
2. 16 72 3 7 246-03 
L. 009000446-03 
4.578537086-04 


-5.532424516-04 
-1.317587306-03 
-2.365340286-03 
-2.671574476-03 
-1.554257056-03 
6.648061156-04 
3.40O19799E-03 
1 ,574018806-03 
9. 122890606-04 


-6. 19 111 5 316-04 
-1.448521436-03 
-2.467357956-03 
-2,609508626-03 
-1.370566076-03 
1.129354396-03 
3.291453376-03 
1.796153826-03 
8.243946996-04 


-6.929931606-04 
-1.583968156-03 
-2.554938446-03 
- 2.5 2 18937 76-0 3 
-1.131735166-03 
1.640955836-03 
3. 1 5 tc 76766-0 3 
1.625327476-03 
7.449806426-04 


-7.753504326-04 
-1.721912466-03 
->2.625971186-03 
-2.408754146-03 
-9.71 5216306-04 
2. 1 94990606-03 
2.979397756-03 
1.488886396-03 
6. 736074986-04 


-8.665185396-04 
-1 .860081476-03 
-2.67850751E-03 
-2.270B5341E-03 
-7.2642U970E-O4 
2.776136366-03 
2.785109276-03 
1 .354204926-03 
6.09761558E-04 


21 18 92 

-3.873656256-04 -4.3037S3336-04 
-9.196233276-04 -1.315492656-03. 
— 1.8 4805b 1**E— 03 — 1 ,9650o 3326-0 3 
-2.485048436-03 -2.494294316-03 
-1.9 4 7 0 5 8 9 9 6-03 -1 .70747O34F-O3 
-4.101133226-04 -I. 105933676-04 
2.96217 697--03 3 .0903 I 6 76=— 03 

2 . 37 75 8 L 4 4 E-C2 2.190935606-03 
1. 172 2 4 5 8 26-03 1.0 6 5 4 2 0 6 26-03 

5,37557 7396-04 4. 894079266-04 


22 18 92 

-2. 7 536 6 5706-04 -4.16136 7836-0*. 
-8.711436125-04 -9 .6228 1702E-04 
-1.705453326-03 -17009405196-03 
-2.2 7031889 5-03 -2.27529 7156-0 3 
-1.789261866-03 -1.647051316-03 
-3.7266179/F-04 -9.66S657 5 76-05 
2.6 209752 36-03 2.741 = 5 34 76-03 

2.181421556-03 2.029046226-03 

1. 11252400=-03 1.0139 0 8 8 46-03 

5.20 70 50166-04 4.75308 88 76-0*. 


-4.792823666-04 -5.345479966-04 
-1.126400906-03 -1 .23952535 E-03 
-2.0755 14246-03 -2.177237916-03 
-2.482808326—03 -2.449531706-03 
-1.6 18 19676 E-03 -1.446821636-03 
2. 30479718 F” 04 6. 137 11 1456-04 

3 • 1 0894039F-QJ 3.064614166-03 

2.022356986-03 1 . 8 5 2321 34E-05 

9 ,66 95 5269 F -04 B. 7bb*,9 J9 IE-04 
4.467394856-04 


-4.623402176-04 -5.143486466-04 
-1.059328626-03 - 1 . 16 15 t 604E-03 
-1.90744575E-03 -1.997606606-03 
-2.26 7798106-03 - 2. 23 79 J 3636-03 
-1.495420256-03 -1 . 2 39701 56 C-03 
2. 159733666-04 5.672127016-04 

2.773591736-03 2.7481922BE-03 

1.876840666-03 1 . 728 d6230S-03 

0.227545326-04 Q .30037633E-O4 
4.343975166-04 


-5.966203026-04 -6.65905800E-D4 
-1 .357712576-03 - 1 .4 7949600 E-03 
-2.268126046-03 -2.346173666-03 
-2.393876476-03 - 2.3 1529 569E- 03 
-1.275521306-03 -1.097714116-03 
1.040206936-03 1 .508576 36E-03 

2.976548926-03 2.8609=2306-03 

1.693967976-03 1.547425406-03 

7.942660346-04 7.195837646-Q4 


1 

-5.725092176-04 -6.371189236-04 
-1.26 7811 736-03 -1.37&93415E-03 
-2.078283486-03 -2. 14746379L-03 
-2.187987396-03 -2. 11768524 F-0 3 
-1 .18 126845E-03 -1.012946736-03 
9.569002576-04 l.lhionbb'-Qi 
2.682461756-03 2.586295126-03 

1 . 566Col 866—03 1.45cl2u35c-03 

7 .621251876-04 6.92227 1246-04 


-7.427315086-04 -8 .2 72977 l IE-04 
-1.603138076-03 -1.726689566-03 
-2.409483496-03 -2.456306136-03 
-2.213912116-03 -2.090507846-03 
-8 .99450067E— 04 -6.718949466-04 
2.012568806-03 2.531254236-03 

2.716126056-03 2.552323546-03 

1.412455146-03 1.2e773 1566-03 

6.521807686-04 5.916579036-04 


-7.083923176-04 -7.864233276-04 
-1 ,437384256-03 -1.597489456-03 
-2.203549616-03 -2-244977786-03 
2.027117296-03 -1.917047586-03 
-8.277356006-04 -6.153187466-04 
1 .U3613580E-03 2.28B53222E-03 

2.466183586-03 2.329043756-03 

1.333195436-03 1 *21083 126E-03 

6.2B935B34E-04 5.718830016-04 


U ■ IS « 

-3.622l‘47J6-04 -4.006202666-04 -4 . 429960 195-04 -4.92u330996-C4 
-a. 2 1120031 --Ci -9.C407D233*-04 -9.91749294F-04 -UC8364d6 73-03 
-1 .5 4 7879 075-0 3 -1.65 783 2425-03 -.1 . 79095 7036 -03;'. > l > d 2ft U 6406-02 
-2.0o593i43:-OJ -2 .0/267233E-03 -2 . 06 3C034 1F-03 - 2. J2u 1 132.35-03 
-1 .636741295-03 -1.519255993-03 -1 . 37955557E-03 * 1 . 23 3266 1 3E-02 
-3:3565236:3-09 -0.199253102-05 2.041739655-04 5. 238007696-06 

2.3025199:6-03 2.919995-.1E-03 2.961035656-03 2 .95081791E-O3 

1.991O3355H-03 1.8615925X6-03 L.73157376E-0J 1.603279336-03 

1 .0 5099-. 065-03 . 9.631955806-0-. a.7o3901986-09 7, 989344505-04 

5.322536205-09 9. 59156698E-09 9 . 207931 65E-09 


24 1 8 92 

-3.9 7 666672E-09 -3.83 7940506-09 -9. 292 3 39 68E-09 -4.699054206-09 
-7.702901163-09 -8 .95J03O09F-09 -9.23798930E-09 -1.006029916-03 
-1.43597*2)5-03 -1 .51o007706-03 -1,592143595-03 - 1 . 66 20699 8E-03 
-l. d71569995-03 -l .87703025=-03 -1 .86801 8 S1F-03 - 1 . 39 3E 26306-03 
-1.489926116-02 -1 .377196*63-03 - 1.255850656-03 -1.127973276-03 
-2.9 81072835-04 -6.61959584F-05 1.935326015-04 9.829698656-09 

2.3 11315193-03 2. 12261 9016-03 2.17039 7966-03 2 . 172 1 3693E-C3 

l .80651 4193-03 1.69309656—03 L.5S7321946-03 l .476990 1 8F-03 

9.86179251E-04 9 .041 3 1 967F-04 8 . 2769 1 1 28E -04 7.56823593E-04 

4.621295756-04 4.41770953F-04 4.056912593-04" 


25 18 92 

-3.322914306-04 -3.65640042F-Q4 -4.030524816-04 -4 .446880 126-C4 
- 7. 1820 70 886-04 -7.8 52425486-04 -8.556310606-09 -9.287885156-04 
-1.306360366-03 -1 .37/6862*5-01 - 1.49420233E-03 - 1 . 5051 97C56-03 
-1 . fc 8 6o 8 73 2c— 03 -1.690964326-03 - l. 682537446-03 -l . 6C0791456-03 
-1.34 734 927E-03 -1 .247907726-03 - l . 13972361E-03 - 1 . 024 36 U7E-03 
-2.6 26222396-04 -5 . 16 31 5 19 5C-05 1. 82683 7025-04 4.4 16141156-04 

1.745705276-03 1.849594696-03 1 .90067 7226-03 1 .91 17 1 5565-03 

1.62804505E-C3 1.527968896-03 1.44477 147E-03 1 . 3500 t 4676-03 

9.196922866-04 0 .459 1 2 1 19E-04 7.760330836-04 7 . IZ:0 1653C— C4 

4.602684026-04 4. 2 2 778 5286-04 3.891627696-04 


26 1 8 92 

-3.1547l43t6-C4 -3.461574316-04 -3.604728436-04 -4. 18525220 E-04 
—6 .6 52451636-04 -7.24969003F-04 -7. 8 742 1 B84E-04 -8 . E2080682E-04 
-1.183136616-03 —1.2 44 71 06 3F-03 - l .30242 7 72E-03 - 1 . 35525 1 92E-03 
-1. 51106 o76E-C3 -1.5 1424 7e86-0 3 - 1 . 50634fc45F-03 -l.*8c83 JT66-03 
-1.2 106499i=-C3 -1 . 1 22836c Jr -03 -1.026647376-03 -9. 2J04>51 86-04 
— 2.293646906-04 -3.936376996-05 1 . 7042 73 39E-04 3 . 99 356 1 35t -Oh 

1.50 35 5 4 54= -03 1.599070366-03 1 .65 126B25F-03 1.669125056-03 

1.455869946-03 1 .36202865E-03 1 . J0456 3 60E-03 1.225477506-03 

8.512301996-04 7 .855 172 J2 r -34 7 .2384 7 361 E-04 6.660377605-04 

4.366199276-04 4 .0 2 1 17240E-04 3.710865296-04 


27 18 92 

-2.974080566-04 -3 .25367058E-04 - 3 .565386 13E-04 -3.909876986-04 
-6. 1 16052465-04 -6.643920906-04 -7. 193771566-04 -7. 760961676-04 
-1.063874455-0? - 1 . ! 170084 76-03 - 1 . 166 70 3 15F-03 *t .21 209*056-03 
—1434453 1106-03 -i . 3 4672 53 86-03 - 1 . 339 31967E-03 -1.32 1861 846-03 
— 1.0 795 72346—03 -1.002333226-03 -9. 1 71 89401 E-04 -8 . 24695789E-04 
-l.990*7*73E-04 -2.961577475-05 1.558 386 515-04 3. 363 198 24F- 04 

1.283235215-03 1 . 36991 81 9E -03 1.4214 31746-03 1.44 39 72 89 5-03 

1.290311546-03 1 .230770486-03 1. U732474C-OJ 1. 1016*. 2365-OJ 

7 * 810 706 766-04 7. 2 344 66 75E-04 6 .6 08 78562E-04 6 . 1 753321 B6-U4 
4. 111544825-04 3.797416416-09 3 . 5 14044U7E-04 


28 18 92 

-2.781265356-04 -3.033166786-04 -3.313234146-04 -3 . 62 1777 lcE-04 
-S. 5 752 16266 -04 -6.037552396-04 -6.317391916-04 -7 . 0 1065 309F-04 
— 9.491419clE“04 -9 .94 592 3246-04 -1.027004816-03 -1.C7563854E-03 
-1. 136996773-03 - 1 . 1863325 1F-03 -1.18 14 17 32 E-03 -1.16 536 7266-03 
-9.544608716-04 -8 . 86689 3675-0 4 -8.119071726-04 - 7 . 3004 73 16E-04 
- 1.722784455-04 -2.31369236:— 05 1 .38402 7446-04 3. 108237476-04 

1.083454366-03 1 .161 11 1726-03 1.21054 6676-03 1.235517966-03 

l.l3176753=-03 1.084727865-03 1 .033690B7F-03 9. 8009033b E-04 

7.095709776-04 6 . 59685 991 E-04 6.121421166-09 5. b 7 101 261 E-04 

3.838707625-04 3 . 55630031 F-0 4 3 .300 7808 1 F -04 


29 18 92 

-2.576621426-04 -2 .8008726 1 6-04 -3.049367826-04 -3.322355436-04 
-5.03269784E-04 -5.433443266-04 -5.84 7951406-04 -6.272670296-04 
-8.390567115-04 -8.7756 1 485=-04 -9.134000856-04 -9.459557156-04 
*1.038472606-03 -1.03909326E-03 -1.032605/06-03 -1.018925576-03 
-8. 3 5750537E-04 -7.770732786-04 -7 . 1 1 7 308 246-04 -6. 358590936-04 
-1.494897116-04 -2.035987646-05 11181176206-04 2.639107896-04 

9.031114036-04 9.717676276-04 1.018049685-03 1.044668195-03 

9.8C70857DE-04 9.444830826-04 9.043260746-04 8.614374246-04 

6.371698986-04 5.94O40044E-04 5.539322496-04 5. 151272496-04 

3.5460536 >6-04 3.297934266-04 3.0/0964346-04 


30 18 92 

-2.361675965-04 -2.55800480F-0* -2.775317186-04 -3.013470676-04 
-4.491753116-04 -4 .33.9c 929F-04 -5.188861846-04 - 5. 55J37 /80E -04 
-7.3384916 l c -C4 -7.561053316-04 -7.960503658-04 -E.23l72l.99r-04 
-8.990599036-04 -8.991212886-04 -8.932579865-04 - B. 8 1 19 7* 54l. -u* 
— 7. 23951 66 35 -1*4 -6 • 7*3508 4 385-04 -6.1 71388236-04 -E.5'.P5 = 250t-04 
-l. 308645716-04 -2.10370.190E-G5 9.549582326-05 2. 1 666.4: 766-04 

7.4 12220415-04 5.010751 5 56-04 0 .4 34 213 936-04 8.699 7386 76-04 

8. 37675067E-04 8.1067-0936-04 7. 7994 1 205E-04 7.46461 336E-04 

5.643926705-34 5 . 289 1 5251 E- 04 4. 94b 309 10E-04 4.617/96526-04 

3 .240456525-04 3 .02286 71 26-04 2.82486/446-04 


-5.467906526-04 -6.06c7?i33f-C4 -6.724348576-04 -7.439972676-0* 
-1. 1 /3849096-03 - 1.2 762 324 75-03 -1.3 /4505 9/5-03 -1.4 72234745-03 
-1.89720320E-03 -1.958163716-03 -2.007319028-03 -2.04308-.44F-03 
- 1.99 1447236-03 - 1.4 2o72935F-03 -1 . 84809136E-03 -1 .750244626-03 
-L. 06 700009 6-03 -9. 307902725-04 -7.567899555-04 -9.552798BoE-04 
8.773978386-04 1. 2609c 729E--03 1. 662039916-03 2 .044489.1 26-03 

2.402933166-03 2.326648036-02 2.228437386-03 2.114771046-03 

1.479553476-03 1 . 3626055 15-03 1.25129 1 166-03 1.147493 556-03 

7 .278604716—04 6.62885:875-04 6. 03B08262E-04 5 . 503640085-04 


-5.194938226-04 -5.746272725-04 -6 . 34857460E-04 -7. 001358066-04 
- 1 .090881606-03 - 1.1 7 /3 80 72E-03 -1.26 4413 596-03 -V .350 7 5062E-03 
-t .724391 766—03 - 1.7 7 77567c6-03 -1.8208700 /6-03 -1.8S2S148CE-03 
-1.803955915-03 - 1. 746180506-03 - 1 . 6 766 36956-03 -1 .589954035-03 
-9.935882966-0* -8.486/30906-04 -6. 87069 7 45E-04 -5.04369 144E-04 
8. 001969 715-04 1. l40?95e£6-03 1 .4900 19 19E-03 1 .80209242E-03 

2.139577216-0: 2.06009 722E-03 2.002 l 798 IE-03 1 ,90919 145E-03 

1 .3 6 9 26003E— 03 1. 265c5342E-03 1 . 16 7043 92E-03 1.0 7383 2 676-03 

6.914593296-04 6.314852386-04 5.767435016-04 5.270354766-04 


-4.906676336-04 -5.410586696-04 -5.958577296-04 -6.549729786-04 
-1. 0039964J6-03 -1 .060*09986-03 -1.1570/1796-03 -1.232930216-03 
-1.559467416-03 -1.605842335-03 -1.64319736E-03 -1.670472075-03 
-1.625299 175-03 -1.57587 2946-03 - 1. 512 63656E-03 -1 . 4361 1 794E-03 
-9.015838936-0- -7. 6 8101 897=-04 -6.190870226-04 -4.5 119 5063E-04 
7.235231496-04 1. 02 159 7996-03 1.317016176-03 1.570292046-03 

1.892017646-03 1.848642645-03 1.787004426-03 1 . 7 12 16500 E-03 

1.257971536-03 l.le76fcl52E-03 1. 080834975-03 9.98065351E-04 

6. 529124 746-04 5. 96012051E-04 5 .4 / 70205 l E-04 5.018444255-04 


—4 .603842 17E-04 -5.06069244E-04 -5.555363006-04 -6.0E66476BE-04 
-9.182 IS366E-04 -6.853954016-04 -1.052500266-03 -l . 118733 14E-03 
-1.402154006-03 - 1.442 127.316-03 -1.474202966-03 -1 .497465086-03 
-1.455344396-03 -1.411710566-03 - 1 . 356054845-03 -1.288 7 70185-03 
-8 • 1 1 6 120 33E-04 —c. 3 9 65913d -04 -5.534110506-04 -4 .003 86 7 1 6E-04 
6 . 463220 9o£ -04 9.0 1c 578976-04 1.147 24554 6-03 1.354201926-03 

1.659940356-03 1 .6 29590326-03 1.502722646-03 1 . 5 23/0255E-O3 

1.146398286-00 1.000624356-03 9.93105249E-0* 9.204922146-04 

6- 122436 78E-0* 5.624676196-04 5. l6ob5989E-04 4.747554956-04 


-4.287432876-04 -4.697886826-04 -5. 140515506-04 -5.613942646-04 
-8.340000836-04 -8.924602016-04 -9. 50 7 /6 l 53E-04 -1.008 186245-03 
-1.2E22/585E-03 -1.2864 20 526-03 -1.313690566-03 -1.333302476-03 
-1.294039496-03 -1,255711106-03 -1.206942125-03 -1,148039986-03 
-7.242625316-04 -6.129921895-04 -4.906581085-04 -3.525803616-04 
5.682636105-04 7.831270616-04 9.852313,905-04 1.155477955-03 

1.442109266-02 1.42355665E-02 1.309209906-03 1.243943056-03 

1.035225035-03 9.69140/446-04 9.04347601E-04 8.414900005-04 

5.695195026-04 5.240891296-04 4. 8 36469486-04 4 .45758057E-04 


.. • l : • • -• .. ■; . : - ■ . 

-3.958774926-04 -4.32380186E"-04 -4.7159538 36-0 4 -5.133778706-04 
-7.512585386-04 - 8.0 178099 JE-04 -8.5 203B040E-04 -9.0133614 86-04 
-1.1 09 755 11 E -03 -1.130629706-03 -1 .1 6 156229E-03 -1. 177889456-03 
— 1.14141 4 13 E-03 - 1, 1 079 2 7 566-03 -1.06 54 37696-03 -1 .014152956-03 
—6. 4 Q5729 78 E-04 -5.4 179 1 823f-04 -4.31465967 6-04 -3.083860346-04 
4.90C52869E-04 6.6829/5986-04 8. 337737986-04 9.743426376-04 

1.2413o 568E-03 1.230o 150 16-03 1 .20O86990E-03 1 .1 73 13467E-03 

9.251175546-04 6.098660326-04 8.151069066-04 7.615069386-04 

5.24859759 5-0* 4.853543806-04 4 .4869 56326-04 ! 4.1 48748o6E-04 
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— 5. 4 528 7173--02 -S . 62081 954" -05 -5. 77 76 71896-05 -5 . 92203 1 90 6-05 
-6.41 78*76766 -C5 -6.465601 0 or - 05 -o. 494521886-05 -6 . 5C34 39 356-05 
-6.106529635-05 -5.933099075-05 -5 . 722/9 7066-05 -5.490006166-05 
—4.1 63184 toe— G5 -3 .9174989^6-05 -3. 689573286-05 - 3 .47394822F-05 
-2.59364554F-05 -2. 442 l 36695-05 -2.290228156-05 -2 . 1428354 1 £-05 
-1 .46765867E-C5 -1. 34298994E-05 - 1 . 220o 7o2BF-05 -1.100290106-05 
— 5,01850954 e — 06 -3 .77l9c>21 7F-06 -2 .48 608 1 29F-06 


42 18 92 

-1.083668095-05 -1 .1 11573936-05 -1.15067 7 716-05 - 1. 20078499F-C5 

- 1 . 60 806703E-05 -1.718729716-05 - t . 838202966-05 -1 .965932 726-05 
-2.707552076-05 -2 . 8 71 1 51 596-35 -3.0373 2 3346-05 -3.206 59 7826-05 
-4.045622 70E-C? -4.204915856-05 -4.358336206-05 -4.506524876-05 
-5.1 13496736-05 —5 . 2029 533-6-08 -5.2799496 76-05 -5 . 345342586-08 
-5.352833236-05 -5.283133c5E-05 - 5. 1 9 144650E-05 -5 .079666 761-05 
-4. 33252324c: -05 -4. 20ol205 06-05 -4.066476056-05 -3.932314326-05 
-3. a 12482965-05 -3. 1 39016-26-05 -3.065203646-05 -2.04 1 J29U-6-05 
-2 .32971 4486-05 - 2 .2 13 U 52 It -05 - 2. 19 156940E-05 -1.574110 806-05 

- 1. 39331330^-05 -1.27ol3363F-05 -1.15763051E-05 


43 18 92 

-7.048328136-06 -7 .299b390l i: -06 - 7 ,6 32446416-Cb -8. 046u3788‘ : -06 
-l. 129375916-05 - 1 . 2 1 69 20306 -05 -1.31 1506 796-05 -1 .4 1264 5 73E-05 
-2.OC716356F-05 -2. 143122245-05 -2.27640209E-05 -2 . 4 1 532 1 3 lf-05 
-3.123150396-05 -3.261744996-05 - 3, ?9 74 0790E-05 -2.529-05306-05 
-4.104669636-05 -4.197053516-08 -4.282157356-05 -4.354680746-65 
-4.512779666-05 -4.491235736-05 -4 .45 7 1 2 p 266-05 -4.407115336-05 
-4.0063436-6-05 -3.917194056-05 -3. 828508176-05 -3.740909936-05 
-3.292542196-05 -3. l9od= 4926-05 -3,099337946-05 -2.000271586-05 
-2 .4 9 77 5 -83 6-0 5 -2 . 3900 598 1F-05 - 2 . 29925 1 956-05 * 2 . 20 14341 26-05 
-1.729381766-05 - 1 . 63 76 75635-05 -1.5463 78666-05 


-4. 8060o902:-0o -5.045557096-06 -5. 343357606-06 -5.700909656-06 
-8.357102696-06 -0 . 0 5771 95*,£-06 -9 .8 1 19 41 276-06 -1.06178 3276-05 
-1.5 329972 56-05 -t .6364468 7F -05 -1 ,74662973> : -05 - 1 . 85 704 153F- 05 
-2.422755026-05 -2. 524366016-05 - 2.64393 1 46E -05 -2.780957826-05 
-3. 22470 7-35-05 -3 . 303 24 5096-05 - 3 . 375 1 4 3406-05 -3.4 39769336-05 
-3.611143576-05 -2.6l039961 p -05 -3.598334996-05 -3.575530816-05 
-3.344364396-05 -3 . 26ol 255 1 6-08 -3 . 22653991 F-08 -3.106680326-65 
-Z.82229T67c-05 - 2.753884526-05 -2.683**0746-05 -2.607134306-08 
-2.218760126-05 -2 . 14252O24F-05 -2.067464626-C5 - 1 . 94336420E-C5 
- l.o 522 222 06-05 — 1 ,6*9420276-05 -1. 528333426-05 


45 18 92 

-3.262973555-06 -3 .4362803 7 r -0o -3 . 730432 5 36-06 -4.0.156 14326-06 
-6.05632419E-06 -6.58506 3706-06 -7.1522B5BBE-C* -7.7 5666 4016-06 
-1.127093615-05 - 1 . 205*6 7p6~-05 — 1.26586 1956-05 — 1.5=7 o=003F“05 
-1,70 7576605-05 - l .0 7036255F-OS -1.951675596-03 -2.3813,4976-05 
-2.3 3296 7895-05 -2.4414 56019-0 8 -2 .495093406-05 -2 . P4p470 /Of-Op 
-2.682900336-05 -2 . 6876798 76-08 -2.684897766-05 -2. 6 7-3 39 116-08 
-2. 538743765 -Op -2 . 50043 407 r -08 -2.46000083F-05 -2 . 4 1 75 J496E-05 
-2. 1 747 ft 196-05 -2. 120590716-05 -2.0*5215=56-05; -2 . 00394 343E-05 
-1,726486776-05 -1.672033816-05 - l.o 16921 666-05 -1.567379066-05 
-1 .33392959E-05 -1 .299743936-35 -1,262771396-05 


46 18 92 

-2. 100036 1 2= -06 -2 .24744843 c -06 -2 .42093 1 81 £-06 -2 . 6 2085d3cE-06 
—4.0 '8295016-06 -4. 3 7631 575E-0O -4.759467846-06 -5. 166947466-Oe 
-7 • 5 26 7 723 7 = - 06 -3 . 05 l 76494; -04 -8. 58964488E-06 -9 . 1 379 7 319 £-06 
-1.1 94030996-05 -1.249 21 4856-05 -1.303387856-05 - l . 256237 1 4005 

— 1 . 59 J1 6 1 7*5-05 — 1.62395c43 c -05 -1 .664512 566-05 - 1 .6965c 7996-05 
-1,7931368-? -Op -1 .790 4 5 5 7 76 - 05 - 1.79 9 3 7 9 096 - 05 - 1 .79' J •’12-5-05 

- 1. 7 1 39501 2- -05 -1 .69624 8532 -05 — l .1:64532 73E -05 - 1 .64 155 527F-05 
-1.4 79572P91-05 -t.44il859c.6-05 - 1.40600991E-05 - 1 . 360 : C791 E-05 
-1.163873637-05 -1 .1452 7491 c ~05 -1.1 10804666-05 - 1 . 07 76 4 3 30F-05 
-9.361750876-06 -9. 12703 l 75E-06 -8.93006243E-C6 


■4 . 7 2 4c 596 1 E— 05 -4.9=90666 16-05 - 5.23575387E-05 -5. 522 76 1 3 56-05 
•7.18024172E-05 -7- 53 7C3243E-05 -7.898314656-05 -8.2 50 7 72936-05 
■9.670137538-05 - 1.013641136-04 - 1 . 03 7 50665F-04 -1.053271566-04 
■1 ,105292096-04 -1. 101690536-04 -1 , 093413 296-04 -1.0603 7.1666-04 
•9,43 1513076-05 -9.00t3bl4c£-05. -8. 5060 83 856-05 -7.93 7030056-05 
■4.242398276-05 -3.551162936-05 -2.773764246-05 -2.02903 JC66-05 
7.79456 7 356-06 1. 1 E43C 291 6-05 1.473489036-05 1 . 760538 33£-05 
2.663109556-05 2 .7611 1 1956-05 2.838168146-05 2.89709*556-05 
3.021921346-05 3.033187126-05 3,046366916-05 3.06405 744E-05 


-3.111052156-05 -3.265775556-05 -3.437311666-05 -3.625991 5 2E-05 
-4.755820306-05 -5.0 13b 20016-05 -5.2/2026836-05 -5.532946096-05 
-6.796387166-05 -7.024501256-05 -7.233963026-05 -7,437516846-05 
-3.120372596-05 -8. 182* 7922F-05 -3.21 76572L6-05 -6 .2c:39Ufc66-0S 
-7.803091066-05 -7.619700746-05 -7.332302636-05 -7.095146526-05 
-5.C 70421 196-05 -4.55417o31E-05 -4.113441226-05 -3.656341566-05 
-1.824605436-05 -1.557133496-05 -1.315002516-05 -l. 092725406-05 
-2. 175499306-06 -8.2 2*6= 7606-07 4.23*682126-07 1,5 758 78046-06 

6,393537536-06 7.27 19e4256-Q6 6.158015926-06 9.067200976-06 


-1.975073216-05 -2.07515909F-05 -2.138729886-05 -2.315045416-05 
-3.111465336-05 -3.297229006-05 -3.4392773 /E-05 -3 .6863o340E-05 
-4.699161546-05 -4.8463/9566-05 -5 .0*44 1978E-05 -5.275251716-05 
-6 .052800036-05 -6. 16O68651E-05 -6. 268725816-05 -6=352037466-05 
-6.489260786-05 -6. 44o25777f-05 -b.368753346-05 -6.2 55544 6C6- 05 
-S. 236575 756-05 -4.96906500E-05 -4.695476026-05 -4,424304536-05 
— 3 • 283 3642 Pc-0 5 -3.09996 /845-05 -2.926650266-05 -2.7 5996 7996-05 
-1 .595395236-05 - 1.86 U6419E-05 -1.726392006-05 -L . 595335336-05 
-5.811351326-06 -8.6 2502 72 7E-06 -7.43623 109E-06 -6. 23696 774E-06 


-1,261686396-05 - 1 .333148606-05 -1.414907556-05 -1 .50656 1926-05 
-2.101504706-05 -2,24414Z5o£-05 -2.39320729E-05 -2, 54794767E-05 
-3.3 7*463526-05 - 3. 54637557E-05 -3.71 5264056-05 -3 .88204344E-05 
-4.446361896-05 -4.777976246-05 -4.900255626-05 -5. 0 1235468E-05 
-5 . 3 9 Gd 1 5742-05 -5.4 1 32113336-OS -5.42 1444626-05 -5.399382255-05 
-4. 9 50 6 13 9 46 -05 -4.803351016-05 - 4. 6 5 776071E-0S -4.504210726-05 
-3.805232516-05 -3. 68049543C-05 -J .5 57902 84E-05 -3 .4 354235 36-05 
-2.8 17705996-08 - 2. 6945 2 /54E-0 5 -2. 5 7202540C-05 -2,4 503 7 2826-05 
- i . 85 7 26309 E-05 -1.741140846-05 -1 , 62535 1 1 16-05 -1.509545616-05 


-6. 539805 74E-06 -9.1 12609476-06 -9.763618886-06 -1.049120926-05 
-1 .520592106-05 - 1 .t 343 1 3306-05 -1.7 5 3718116-05 -1.878165536-05 
-2.556158025-05 -2. 696 IS 557F-05 -2.640528 315-05 -2.982468025-05 
-2.6p66l929c-0p -3.77855-3846-05 -3.894352496-05 -4.003284886-05 
-4.4l9eil06 c -05 -4.4*861 llpF-05 -4.501016906-05 -4.515549406-05 
-4.343089186-05 -4.2*0002176-05 -4.184825236-05 -4 . 0967905 CE-05 
-3.653627886-05 - 3. 5 660 7J8 1 £-0 5 -3.4 7/1 584 16-05 -3 .3o603215E-05 
-2.900399236-05 -2.799769816-05 -2,69d9l065t-05 -2.598126746-05 
-2.104849926-05 -2.009382236-05 -1,915352346-05 -1.8217*9626-05 


-6.116570786-06 -6.5905 7 1966-06 -7. 122473076-06 -7.711619 786-06 
-l .147327876-05 -1.22754c 596-05 - 1.332137116-05 -1.430730676-05 
-1.969143366-05 -2.03236=841-05 -2 . 19*123*36-05 -2.309795066-05 
-2.854660816-05 -2.4 5447 .446-05 -3.049791916-05 -3.140051046-05 
-2.496 103916-05 -3.5425 12636-05 -3.577415 756-05 -3.600246116-05 
-3.542827586-05 -3. 501 = 296 I*-05 -3.453605896-05 -3.4C06U73E-05 
-3.10*2676*2-05 * 3. 0384 3 554F-05 - 2, 9 7252538E-05 -2.903615036-05 
-2.529706386-05 -2.4 51 7 70046-05 - 2. 3 73 717 59E-05 -2,205930496-05 
-1 ,521904696-05 -l.b5t68*.4*£-05 -1.7 63312956-05 -1 , 7 168294 2E-05 


-4.341534576-06 -4.709294026-06 -5.117853046-06 -5 . 567000496-06 
-8.396660706-06 -9.070413206-06 -9.775755476-06 -1.051019526-05 
-1 .45 1060046-05 - 1.5380 7 75 76-05 -1.6 194 70=96-05 -l .70 = 79027E— OS 
-2.108006506-05 - 2 . 1 8 210 70PE-O5 - 2 . 2p 2908 996.-05 -2.3199 /4376-05 
-2. £86 000 36 c -05 - 2. 6 2 16C 389c-05 -2 .* 5 004 3446-05 -2.6 7039506 6-05 
-2 .*5798061 6-05 - 2.6 3502 381 E-05 r 2.t0684859E-05 -2.57444 7506-05 
-2.373043328-05 -2.3 264 7 = 0)6-05 t-2 .2 7 790D5or-05 -2.2 2 724 7566-05 
-1 .952154046-05 -1.895176736-05 - 1 .830355726-05 -l . 782022476-05 
-1 .517603405-05 -1.4*97589/6-05 - l .42 39 7S43F-05 -1 .3803466 25-05 


-2.84/2/9506-06 -2.100204706-06 -3.37993050E-06 -3.686020266-06 
-5.597750816-06 -6.050666106-06 -6 .524269246-06 -7.0 1692147E-06 
-9.694142086-06 - 1 .0255 2442c-* 5 - 1 . 0 3 1 38443= -05 - 1 . 12B 1 50446-05 
-1 .407454396-05 -1.4 5*728 7/6-05 - l .5 031100056-05 - 1 . 54»3e 1 4 IE-05 

- 1 • 7248 /6466-05 — 1. 74d9i.it *6 — 05 - t • 76o-6044t:-O5 -1.7 0=202 2 56-05 
-1 .7d7J12032-33 - 1 • 7 7 4o c * .. -Op - 1. I p4 l*e 5 36-05 -1.740330316-05 

- 1 .612 50 / 305 -05 - 1.5 01571..PC- 05 -1 .F-6979H1-05 1.5 14915136-05 

-1 .2303445.6-03 - 1.2 923 7=3*6-05 - 1.2P464P436-05 -1.2 17402026-05 
— 1,0459 52 04 6-05 - 1 .0 15* /U2F-05 - 9 . o / 521 26b6 -06 -9.600978346-06 


»-*< O' co 'O in 


47 18 92 

-1.1 7549364E-06 - 1 . 26424340c -06 - 1 . 367526 96E-06 -1 .49552691 E-06 -l .618380 93E— 06 - 1. 766 1 7 50 6E-0 6 -1. 92893188E-06 - 

-2.29903989E-06 -2 . 506020955-0 6 -2 . 7 272C 5 =7E~08 - 2. 562 14709E-06 -3. 2 1 02792 3E-06 -3. 4 709 1 5 82 F-06 -3.743246325-06 - 

! —4.319125 89 -—06 -4.620*39196-06 -4.9239S382E-06 -5 . 242 -6 1 39E-06 -5 . 56 2076 23E-06 - 5 . 8 82 54664E-06 -6. 2061 1766E-06 - 

—6 . 8476 6243 E-06 -7.16309 4625-06 -7.47257448E-06 - 7 . 77431 258E-06 -8. 06654753E-06 - 8.3 47559836-06 -8 . 6 1565339E-06 - 

jh -9.10710571E-C6 -9 . 32 751 71 IE-06 -9. 52931 559E-06 -9. 71124649E-06 -5 .8 7 1922 49E-06 -1.000968 225-05 - 1. 01230292E-05 - 

.0 2741 7405—05 -1 .03 L 19 17 15-05 - 1 . 03 2471 79E-05 - 1. 03 1 309 56E-C5 -1 . 02 7 792 83F-05 -1.02204864E-05 -1 .014239115-05 - 

.531619345-06 -9. 3024741 0E-06 - 9. 85 941 751 E-06 -9.50353882 E-06 -9 .33577686E-06 -S.15707751E-06 - 8.96S57058E-06 - 
. 5 66493 78E-C6 -8.355790676-06 -3 . 14069779E-06 -7. 92280857E-C6 -7. 70370683E-06 - 7.4 8492005E-06 -7.2 6 7931 795-06 - 

. 34534102E-05 - 6 . 6 42351 3 5S-06 - 6.44 6 5 7 7 4 6E-06 -6 . 25914850E-06 -6 . 08 109052 E-06 -5.9 1332217E-06 - 5. 756645 22E-06 - 

.4 791 7898 E-06 -5 .359385615-36 -5.25267CS5E-06 

? 4d 18 92 

f -5.16076059E-07 -5 . 56413 558E-07 -6 . 0309 30 39E-07 -6. 562 19243E-C7 -7. 1 5 847741 E-07 -7.8 2029790E-07 -8.547822565-07 - 

-1.0 198 39 775- C6 -1.112 03 8913-06 - 1 . 21053 86 1 E-06 - 1 . 2 1504225 E-Go -1.4 25 2 50*66-06 - 1. 5 411 5943E-06 - 1. 662 109 83E-06 - 

-1.917720065-06 -2 .C5i 38 6745-06 -2. 18321267E-06 -2. 32757641E-C6 -2. 46881331 E-06 -2.bl 122058E-06 -2 . 75406301 E-06 - 

\ -3.03 7939425-06 -3 . 17 750 11 4E-06 -3 . 3 143 1 7 93 E-06 -3.4* 764716E-06 -2 .57670823E-06 -3.70074072E-06 -3. 8 1901 17 8E-06 - 

■ -4.0 3 55 2272 E-06 -4.13250026E-C6 -4. 22 119917E-06 -4 . 30 1 10 32 4E-06 -4 . 3 7 1 7082 6 E-06 -4.43249737E-06 -4.43302607E-06 - 

-4. 55244 749E-C6 -4. 5 7 12322 36-06 -4 . 5 7946036E-06 -4 . 5 7 729306 E-06 -4 .56499931E-06 -4.5 *29fc600E~06 -4. 5 1 168550E-06 - 

; -4.42 370437E-06 -4. 368 21 663E-06 -4. 30584028E-06 -4 . 237 121 21 E-06 -4. 16259823E-06 -4.0 8283000E-06 -3 .99842493E-0 6 - 

: -3. 8 131c 132E— Cfc -3. 7236 7620^-06 - 3 .o2 72 3 845E-06 -3 . 529 565 73 E-06 -5 .4 3 1 36 911 E-06 - 2.23334206E-06 -3.23615999E-06 - 

-3 .0 469 1203E-05 -2 .9 5605 803F-06 -2. S6846472E-06 -2.78464222E-06 -2. 70505632 E-06 -2. 63012693E-06 -2 . 560220 91E-06 - 

i -2. 4 36724 195-06 -2.3 836093 55-06 -2 . 336482 96E-06 

I... 


i : 49 13 92 

j -1.263169235-07 -1. 362347055-07 -1.473017655-07 -1 .60S90859E-07 - 1 . 1 5569 896E-0 7 - 1.91850691E-07 -2 . 0973 7737E-07 - 
I —2. 5 030 4818 E— 07 -2 . 72946 828E-07 -2.97117088E-07 -3. 2276 7283E-07 -3.498361175-07 - 3.78248881E-07 -4. 07917213E-07 - 
; -4. 705939165—07 -5.033681235-0 7 -5.36 9055935-0 7 -5. 71053626E-C7 -6 . 0 5 66391 1 5-0 7 -6. '*05488 19E-07 -6. 75532799E-07 - 

? -7.450457405-07 -7 . 791883105-07 -8. 1266234SE-07 -6.45273569E-07 - 3 . 76 329c9o5 -07 -9.0 7144920F-07 -9 . 36039827E-07 - 

■-9. 9389d 541~-07 -1 .01255010^-06 -1 .034169635-06 -1.053634375-06 -1.0 7CS3e25S-06 -1.0856 79685-06 -1 .09808689E-06 ~ 

• -1.115406835-06 -1.120251425-06 - 1 . 12263 8S5E-C5 -1.122503395-06 -1 .1 19939d7E-06 - 1 . 1 1 5G0 248 E-06 - 1 . 10778559E-06 - 

F -1.036947435-06 -1.07357347^-06 - 1 .0 5340 8 50E-06 -1.041594945-06 -1 .023281 82E-06 - 1. 00362521 E-06 -9. 82 788622E-07 - 

[ -9. 382495705-07 -9. 148964915-07 -3 .9 I057227E-07 -8.66903222 6-07 -8 .42623481 £-07 -8. 1 83 72923E-07 - 7. 9 432 1406E-07 - 

f ~ 7.47*4261 5E-C7 -7 . 24909 23 9^-0 7 - 7 . 03 160604E-C7 -6 .82320467E-C7 -6 .625005805-07 -6. 433018675-07 -6. 263131035-07 - 

It -5.952578705-07 -5. 8 1S05443E-07 - 5 . 69 7906 83 E-07 

r 

I; 

f. ; ' ' ‘ • • • •• ' • • • - 

I 

l > 

I "... 


i 

r, • 

L- f a 

i\ i * 

t . . 


■2.. 106 59 93 25-06 
4 .026335705-06 
6. 528075375-05 
8 .8693 702 6 E-06 
1.0211238 IE-05 
1 .004548276-05 
8. 77125784E— 06 
7. 054321875-06 
5.611743865—06 


9-340877035-07 
1. 7 87 78 66 8 E— 06 
2.856579395-06 
3 . 9 30 8 24 1 4 E— 06 
4.523041675-06 
4.471 72 8 7 7E— 06 
3. 909978225-06 
3.140475696-06 
2.495667156-06 


2. 292270046-07 
4.3873907CE-07 
7.104239515-07 
9. 633437555-07 
1.108005546-06 
1.09839434E— 06 
9. 609391526-07 
7. 7 C62 7 5 776— 07 
6 .10110596E— 07 


AXIAL -IrT J-I-- !•» I ■■ if! J\ 

CPfJ) - till MINUS VORTEX EFFECT 

cfcmji « urr 

CP1CJ) - LIFT MINUS THICKNESS AND VCRTEX EFFECTS 
CPZtJ) a LIFT v:\US T-’ 1 C Nil ESS EFFECT 

*1 nt = thickness effect 

OCP = VORTEX EFFECT 

J CP(J) CPCHJI CPtlJl CP2IJI aint 

A3 1.58C75137E-02 2.02902323E-03 ! 1.6A536993S-02 l . J3A 1 5 IBS E-02 -5 .5 US 55596- C3 

AA 1.66216973E-03 2. 521A6053E-03 1.71226571E-03 2. 571556ACE-C3 -5.00959766E-0S 

A5 l. 86045597E-03 3.135625256-03 U .85855261E-03 i. t 32731906-03 1 .89335A72E- 06 

A6 2. OB522325E-Q 3 3. 76580582E-03 '-2 . 08 1E2769E-07 3. 7625 IU57E-03 3.39535529E-06 

A7 2.383218532-03 4. A60 5550LE- 03 Z.38003337E-03 4 .45 72 5065 E-03 3. 10 51 6686 E-C6 

A6 2.tS555377c-03 5.1A8t827f.r-Q3 2. 754527215-03 5. 2 1775620E-03 -6. 9073434? E-05 

A9 3.1 132A ICO-— 03 5.95316506--03 3 .220368446-03 6.06068649E-03 -1.075214.25E-C4 

50 3.8117 5b2AF-0 3 7.03064482E-03 3. 84667211 E-03 7.06555569E-B3 -3 . A9 1 48698E-05 

51 A. 7561 2254E-03 3 . 400923 I4 c -03 A . 862 1 2750 F-03 D.50692770F-03 -1.06004564t-C4 

52 6. 7 335 14246-0 3 1.098062192-02 6. 8S005543E-03 1 . LlA31t31E-02 -1.5e54 1 1B9E-04 

53 t. 11331 67 A = -0 2 1 .6A793A I 35-02 1 . 1 1074 a36r-02 1.6AS363E0F-O2 2. 5703 S601S- C5 

5A 1.8A2O9966E-02 2.5580085-35-0 2 .1 . 8 5 46508.4F-02 2. 56895975E-02 -1 . 09511959 f- 04 

55 2.736991576-02 3.65005o85E-02 .2 . 3A2?5909 c -02 3. 75532A37E-02 - 1 .0526 7525E-CS 

56 3.652187525-02 A. 7 1 2248046-02 3. 8:A70225E-0 2 A.8938A277E-02 -1 .815SA733E-03 

57 4, 5 005 9503 E— 02 5.6A8039 1 3- -02 A . 63 20 9023 c -02 5.83008A38E-C2 - 1. 8199 520 IE-03 

58 5. 20 13 1 36 Ac— 0 2 6. 407491046-02 5.33277024E-02 6.589447646-02 -1.81956o03E-C3 

59 5.9J140439E-02 7. l5A269b5=-02 5 . 9 7 32 7429E-02 7. 226 1 395AE-02 -7. 18698989 F- Ca 

60 6. 520242626-02 7. 9 1o297a ?=-02 6.462451176-02 7.753506046 -02 5 .77‘U449?e-C4 

61 6.997039255-02 8.332o958AE-02 6. 8368 7 1 06E-02 «. 17252765E-C2 l . 60168 1 902-03 

62 7.356512836-0? 8. 72606’67s-02 7. 06 74 1 5006-02 8.436965806-02 2.8909T8746-03 

63 7.531608705-02 a.92667o29E-02 7. 120B8792E-02 S. 5 1 595551T -02 A. 107207o3E-C3 

6A 7.5925OA18E-02 9.002530931-02 t . 97060383E-02 8.3806 -35o5E-02 6.21895301E-03 

65 7. 83A39379F-02 9 . 248 18J£2=-02 6 . 60 74 2243F-02 d . 02 1 20926F-C2 1.2269 713SE-C2 

66 8. 2VL83911 c -0 2 9. 6u9 12591 1-02 6. O'. 8A97AAE-02 7.A5578A2AE-02 2.21 33A 167 E-Oi 

67 8.2842944 0 c -02 9 . 6 77 8902 9'- - 02 5 .33 9536 70F-O2 6.73313059E-0Z 2.044759706-08 

68 5.396911295-0 2 6 .773932 5 35- 02 A. 547366206-02 5.924587606-02 8.493449866-03 

69 1. 8o0591A7 c -02 J . 222 5 1 20 Jr-02 3 . 75607627F-02 5. 10 7996 79S-02 -1.885484806-02 

70 1. 300900f-3r-02 2 . 652 242028- 02 2. 999537CeE-02 4,349(i?B55F-02 -1 .t 9763 asl C-Qc 

71 9.791565915-03 2. 325 337)5 r -02 1 .753599706-02 3.0997811 LE-Ox -7. 7AAA3 1 62E-C3 

72 8.018249586-03 2. 14 7101941-02 1. 1U583660E-02 2 . 52 1L0954E-02 -3.840075996-03 

73 6.1 17950195-03 I .958 11 0O=- J2 7 . 8886 650! F-C3 2 . 1 35 1 82786-02 -l. 7 70 723825- U5 

75 5. 289632826-03 1 . 77599 123E-02 5. 1 5689755E-0’ 1 .8617*2756-02 -B.5721373st-05 

75 3.276550132-03 1 .673662535-02 3 . 25 25006JE-03 1 .67 12675 72-02 2.39595535E-C5 

76 6.552950 27 E-03 1. 9S/5362-.E-02 1 . 9 2 375 l 73E-0 2 1 . 52 5 56 527 E -02 5 .62020863 E-C3 

77 A .962527935-0 3 l .935240436- J2 9. 5 B 895599E-0A 1 .535687198-02 5.003532535-03 

78 -1. 4 78685196-04 1. 320 258312-02 0. 1.22503517E-02 -1 .57B63519E-05 


LIFT AND MOMENT 

AL = LIFT, AM = MOMENT. X34R = MOMENT ABM ABOUT NOSE 

A = ATTACHED FLOW, S * S=?ARATEO FLOW 

NS - NEGLECT SHOCK. 

AINTO => SHOCK LIFT , SMA = VORTEX LIFT 
AREA a EXPOSED WING AREA 

OR MAXIMUM CROSS-SECTIONAL AREA 


ALA a 2.010I2025E-02 

ALS = 2.695642S7E-02 

AMA a 1.3161 U09E-02 


AMS V. 1 , 79579237 E— 02 
XRARA = 6.55752566E-01 

XBARS - fc. 661833 15 E— 01 
ALANS = 1.93366005E-02 

ALSNS = 2.6191 8 276 E— 02 

AM A NS = 1.2629 58T0E-02 

AM S NS = 1 .7426 39996—02 

XBARAN = 6.521441296-01 

X8 ASSN :*■ £ .65337258b— Ot 
AINTO = 7.65602085E-0A 


SMA i 6.855227T6E-03 
CL A a: 2.6721 5559E-01 
CLS = 3. 5 835 5 563 E— 01 

CLANS = 2.570512 16E- OL 

CLSNS a 2.58181 22 IE— 01 
CA INTO a 1. 016525256-02 
CSMA = 9ill2000A5E-02 

CM A a 1. 7595 7309E-01 
CMS = 2. 3 872 3 769 E— 01 

CMANS a 1.678515938-01 


CM SNS a 2.31657S53E-0! 
AREA a 1 ,5055 93985—01 


DCP ' 

5.3828 19 27b- 05 
8. 59293698E-05 
1.2751 79289-02 
1.6805B258E-03 
2.07732558E-03 
2.56322899 E-03 
2. 839d 18056-02 
3.21 6380565-03 
3.65580020E-03 
5. 25210766 E-03 
5, 3561 7A56E-03 
7.1 52088 89E- 02 
9 . 13065281E-03 
1 .059060525-02 
1. 15 75 95 1 5 E- 02 
1, 20 56 77 50 E— 02 
1. Z52Sa526E-02 
1.29605587E-02 
1.335t5658E-02 
1 . 3695 5079E-02 
l,39p08759f-02 
1.61037676E-02 
1 . 5 13 7 B683E-02 
1 • 50 7 2 3680 E-02 
1.292595B9E- 02 
1.2 77021 29 E— 02 
1.361920536-02 
1.5513A159E-02 
1.356181516-02 
1 . 35527695 F- 02 
1.35631638F-02 
1,357023008-02 
1. 3560 17 A IE- 02 
1.2 520 91 20E- 02 

I. 33899765E-02 

J . 2550 25 17E-02 



BCC1Y SURFACE PKfcSSL*6 COEFFICIENTS 

CP(JI - OMEGA - 60 DEGASES ( LEEWARD SIDE ) 
Cl*r(jl - ,'MECA - -0 DEGREES ( MNDWARO SIDE ) 
CP1IJ7 - C'<EGA = + 90 DEGREES 
CP21J) - OMEGA - -DO DEGREES 

CPX.CPQX.CtUX AND CP2X - VORTEX EFFECTS NEGLECTED 


J CP(J> CPOIJJ CPl(J) CP2U1 CPX CPOX CP1X CP2X 

31 2.2*60*1856-01 2 .26606 1U56-0 1 1.924970766-01 2.996630208-01 

32 1. 7*2,44566-01 l . 75244456E- 0 1 1 . 93 367*546-0 1 2. 66.06 9082E-0 1 

33 1.602618196-0 1 t .402* 1 3196-01 L. 1 0617124E-0 l 2.G88342396-01 

36 l . 1 22)9 7266-0 1 1. 122097246-01 8. 479723596-C2 1.7856993 76-01 

35 8.819659236-02 0.8 1965923 --02 6.3014 ill*<=-02 1.52302*906-01 

36 6. 68998 92 IE— 02 6. 6 099892 IE-02 6 . 39 51 B1 8hE-02 l. 2877E691E-01 

37 6.7601 30F2E-02 6 . 760 130629-02 2 .60656 J90F-02 1 ,0/2440906-01 

38 2.90527703 £-02 2.905277035-02 1. 13691 111E-D2 0.72661566E-02 

39 1 * 3 35/ 7364 *-02 1. 335773665-02 -2.893715699-03 6. 85369 L34E-02 

60 -2.C9523 162E-03 -2. 0952- 192F-03 - 1 . 6 1 1 66 7606-02 5.085r7380E-02 

-.1 — 1.6 60-97 98 r — 02 -1.6<.0-.97)0r-02 -2 .86 7201 7s c -02 3 .60297829E-02 

62 - 3. 069 706765-0 2 -3 . 0497.7s <4t -02 -6. 00 5105001 -02 1.79856882E-02 

63 -9. 6 3 72 06- 7 c -02 - 7. u 0029 00 1 : -06 - 5. 60 65 96 (.2 E— 02 I.J2 736-6 IE-02, - 5 . 1 7006 0065-02 . 9. 6 761 7 /08E-O3 -5, ?2 020499E-02 1,0 3 706 272E-02 

66 — 1. 0 7108 508c -0 l -2,005970366-02 -6. 7692 7l2nF -02 -1. 1 1069583E-02 -6.5656083 7E-02 -9 . 3 .7 1 28 15E- 03 -5..61202828E-02 -1, 065 17290E-02 

65 -1. 1753 5361 '-01 -i .366 1 1 7c5’-02 -0.0-931 6 19 1 -02 -2.299766619-02 - /.05962230 1 - C2 -1 . t ?42S792F-0i -7. 53 931 6D5E-02 -2 .219366256-02 

66 -1.. 26 5350/62 -01 -6.071166633-02 -9. 19370195C -02 -»3. 5 19636ooE-02 -9.02326661E-02 -2.6*6232606-02 -8.518129766-02 -3,60161 767E-D2 

67 -1. 3-.906 IsoP-Ol —5.0 7236 55 J"~02 -1 . 02 696686F-0 l -6. 7322 1 26-E-02 -1 .0l30d300£-Cl - 3 . e 3099 2966-02 -9.4 4 48 0 0 9 9 6-0 2 -6 ,57522201 C-02 

63 -t.627077676-01 -5. 46 3 8 369 3F-02 -,L. 1 2 77 383 7L-0 1 -5. 73001 7*96-02 -l . 1 17261 23 F-Ct -6, 669812536-02 -1.03 0818166-01 -5 .3 36063636-02 

69 -I. 5 12606156. 01 -7-29266 0703 -02 -1.2367-66-E-0 1 7.361030686-02 -1.23055325E-01 -6 . L 7 Oo 1 3 30 fc— 02 -l. 12580771E-01 -7.1 18060 766-02 

50 -t. 501992356-01 -7,36—29206-02 -1.331316606-01 - 7. 8278E261F-02 -1. 3326 It) 326-01 -o.?->67864E-02 - l. 206275346-01 -7.505700396-02 

i-l -U62J305L9-'— 01 -8. 1 1622615--U2 -1 .41)35 Is 7 3E-01 -0.57 UOSDOE-02 -1 .421594 7*6-01 -t. 650 ’9 2036-02 -1.26291 1096-01 -0.0 7 722862F.-02 

52 -1.6161*5656-0. -8.37502900-02 -1.6599032 36-01 r 9. 063*6 6356-02 -1.512851785-01 -5. *6520994 6-02 -1.298116326-01 -a. 112646576-02 

53 - 1. 6 12831901-01 - 7.0 J 09 3 72 *6 -02 -l.S0726495 c -Ul -a. 06 0229976-02 - 1 .614586016- Cl -3.3u7v25826-02 -1, 313035336-01 -6.303+12006-02 

56 -1.6 095 3019 2-9 1 -3 ,522c20llE -02 -1 . 5661 1 1 Obi -01 -*. 59*628826-02 -l . 7201 Ot 796-0 1 l.t 20302116-03 -1 . 33090 U06E-01 -3, 129 1792 16-02 

55 -l. 7301L250 r -Ol -1.0 190931 IF -02 -1 . 6 89328* •.? -0 l -6 . 2300 32 1 5F-02 - 1.86202 7063-01 2. 3t 1 019 006-02 -1,639956 716-01 -1 ,t)*«0U630E-02 

56 —1.95/7* i?6E -0 1 -8.1 22*908 >F -03 - 1 . 90c3o88 7C-01 -3. r 126609 .E-02 -2 .04885SB5E-01 2. 142621246-02 -1.655835676-01 -t . 767570606-02 

5 7 -2. 20*0495 7F-J1 -9. 1 143 43’.9 c -03 -2.1 1 7103761-01 -3 . 6 080 162 lf-02 -2.25*546946-01 1. Ut4l 0366-02 -1.919696876-01 -2*3*2090496-02 

58 —2.66 1 866796 -0 t - 1 .0 •,5aE*39r-02 -2.36 1261561-01 -'.. 34935 5676-02 -2,459804511-01 -7 • 2 3 *2/l05F-0* - 2 . 173O771.OE-01 -3 .*90796256-02 

59 -2.63419o57 3 -0l -2 . *020009 51 -02 -2 .S29-4..01 6-0 1 -4.8*0752066-02 -2. 6264J700E-CI -l.*J*a92B/E-02 -2.3B2008 75E-01 -4 . 27*463 366-02 

60 -2.7 7 7220971-0 1 -3. 0>160293t.' -02 -2. 6 72}8*43L-Ct -4.H.I0144316-02- *2.7*929# ><tf -01 -2 .4 5 tO* 169F-02 -2.535296216-01 -4,4*60/3426-02 

61 -2.375, 05B2--01 -„. 221 72/1 26-02 -2. 7/J2j957c-ISI - 5 . * 2 Jl 9 7/dF-02 -2 .03 122 )»« :-il -3.757032956-0* -2. 64 *649006 -0 t -a .5*2 763 7*6-02 

62 —2. 9 2*0. ..6 23*— 01 —4, 623**6976—02 -2.8-6706 0,6-01 -o. Oo/f 2 772F -02 *2.8 7*496131 -Cl -4.3 44144261-0, -2.713346056-01 -6. 5 7 *667 546-02 

63 -2. 9551*8116 -* t -5 , 5 a . *4013'--O2 - > . 06 555-16* r -0 V - 6. a 7 -,s 34*3 t -02 - i . 88 73053 7E-0L - 5. f e2 116 70S- 02 -2 .. 74 185362 1-0 1 -7 .0 1 6*36 16 1-02 

64 -2, 940/391 IE-91 ->.954*7930/ -02 -2. »<.O04« //> -01 -7,1*407 7156-02 -s. 863516 ,2t-Cl f ,, *C 3.R295E-C2 -2. 753279276-01 -7.5B6 754536-02 

65 -2.902412314-01 -5.646997 j-Jr -02 -2. 818596/9". 0 1 - 5 .95 16*943* -02 -2.8,14/ J, >71 .-Cl -6,546*26131 0/ -2 . 6865 1 25 IE -0 1 - 7 ./ 30 700 1*6-02 

66 - 2. fl 1 54046 IE— 0 L —2 • 26*4934 3/ -02 -2. 7364 * *50- -01 -3.289*28516-02 -2 . 704*99>Jt-01 • J . 3 745-ri *51- 02 -2 . 1 9693 168E«0 1 •4.4*2519736-02 

67 -2.67 j J/4«.r>ol 3, 400*4/32 :-02 -2 . 5936 J7oJ B -0 1 2.845953636-02 -2. s494106Sc-Cl 2, /sGvlFOJsF-O? -2 ,450294986-0 1 1,269/38536-02 

68 —2,3 '7 546095C -0 l H . 72*347 >76-02 -2. ’’5275511-01 5 . 9U223S06 -02 -2 . 259! >C7 7 e - 01 4 . 7 *02 13 3BF-0+ “2 . 1671 7 7066-01 3.9.1047597E-02 

69 a, 0463887/— —U 3 9. *4 3 85* 34 r -02 1- 26612* 31 -.-02 4.003 77*336 -02 2,0* /ill 1 196- C2 7 . a 4*2*68 36-02 2 . 94 01 30 11l-02 6,5.84929726-02 

70 1.05*9 2*5 24-01 1. 3*1*2. .'I- 01 1.1190/04 31 J .282544*96-01 1.216197016-01 l . 1 2 12-7922 E-Ol 1.24 7 U4 16E-C 1 l. 040372076-01 

71 1. 19392 /97=-Jt 1.20605*7 J=-01, 1.266054 791 -0 1 1.1919 2 7476-01 

72 l.l 185o259F-0i 1.31 7709336-01 1, 18 7761516 -Cl 1.2*05101*6 -01 

73 1. 122 r '3659=-Cl l. lO/atOO.S.Ol 1 .10 78/00. E -01 1 . 1 22566 59E-01 

74 1. 19*479136-01 1.25*345*9!. -91 1.25264539? at 1. 192479136-01 

75 1. 3148,6764-01 1.353*7250’ -01 1.360* 72306-01 1 ,3 14836 766-0 1 

7* . 1,43 )1.’ 7586-03 1 .5292 743’t-Ol 1. 52 527-826-01 1 . 483 1 25 58E-0 1 

77 l. 7023 762 74-01 l . 739s70 Jr -0! 1.7198 76516-01 1.7028/62 76-01 

78 2,033245186-01 i. 029 >6421. -01 2. 0295642 If. -0 1 2.003245106-01 

79 2, 49975 703 3-0 1 2 . 5 139749.C -0 1 i .5 139 749, F-0 1 2.4999 6 720 c -0 l 

CPSTABe -3,407048368-02 
DRAG, -l .19197534F-05 




SONIC LINE AND SHOCK HRVE 
H = .980 F =10-000 H = .300 
ALPHA = 4 .00 OEG . OMEGA = 0-00 DEG . 


Figure 7.- Outline of configuration and shock -wave and sonic-line locations 
in computational plane. 



BODY PRESSURE DISTRIBUTION 
IN WING PLANE 

M = .980 F =10.000 H = .300 
RLPHR = 4.00 DEG. OMEGR = 0-00 DEG 


iqure 8. - Body pressure distribution in wing pl< 



BODY PRESSURE DISTRIBUTION 
IN SYMMETRY PLRNE 
M = .980 F =10.000 H = .300 
RLPHfi = 4.00 OEG. OMEGA = 0.00 DEG 


e 9. - Body pressure distribution in symmetry plane 
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